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10.  Program  Output  for  Case  5  100 
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Atmospheric  Transmittance/Radiance: 

Computer  Code  LOWTRAN  5 


1.  S.vl  KOlH’CTiON 


This  report  describes  a  Fortran  computer  code,  LOWTRAN  5,  designed  to 
calculate  atmospheric  transmittance  and  radiance  for  a  given  atmospheric  path  at 
moderate  spectral  resolution.  This  code  is  an  extension  of  the  current  LOWTRAN 
atmospheric  code,  LOWTRAN  41  (and  its  predecessors  LOWTRAN  3B,  2  LOWTRAN 
3,  2  and  LOWTRAN  2^),  All  the  options  and  capabilities  of  the  LOWTRAN  4  code 
have  been  retained.  Now  altitude  and  relative  humidity  dependent  aerosol  models 
and  n c*  fog  models  have  been  incorporated  into  LOWTRAN  a.  In  addition.,  exten¬ 
sive  restructuring  of  tin.'  code  into  subroutines  has  been  made  for  improved  logical 
flow  of  the  program  and  user  understanding. 

(Received  for  publication  20  February  1030) 
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The  LOWTfiAN  code  calculates  atmospheric  transmittance  and  radiance, 
averaged  over  20-cm  ^  intervals  in  steps  of  5  cm  *  from  3  50  to  40,  000  cm  * 

(0.  25  to  28,  5  ^un).  The  code  uses  a  single-parameter  band  model  for  molecular 
absorption,  and  includes  the  effects  of  continuum  absorption,  molecular  scatter¬ 
ing  and  aerosol  extinction.  Refraction  and  earth  curvature  are  included  in  the 
calculation  for  slant  atmospheric  paths.  The  code  contains  representative  atmos¬ 
pheric  and  aerosol  models,  and  the  option  to  replace  them  with  user-derived  or 
measured  values. 

In  this  report,  the  model  atmospheres  and  the  new  aerosol  models  in  the  code 
are  described  in  Sections  2  and  3.  Following  this  is  a  discussion  of  the  spherical 
geometry  with  refraction  used  in  the  program.  In  Sections  5  and  P,  a  detailed 
description  of  the  calculation  of  atmospheric  transmittance  and  radiance  is  given. 
The  structure  of  the  computer  code  is  presented  in  Section  7,  with  a  listing  of  the 
code  in  Appendix  A  and  a  definition  of  symbols  used  in  the  main  program  given  in 
Appendix  B.  User  instructions  for  the  LOWTRAN  code  are  given  in  Section  8. 
Examples  of  the  output  of  the  program  and  illustrations  of  transmittance  and  rad¬ 
iance  spectra  calculated  from  the  code  are  presented  in  Sections  9  and  10.  A 
comparison  of  the  new  LOWTRAN  aerosol  models  with  measurements  is  made  in 
Section  11.  In  Section  12,  an  example  of  the  sensitivity  of  the  code  to  meteorolog¬ 
ical  input  parameters  is  given.  Comments  on  the  use  and  limitations  of  the  code 
are  given  in  the  last  section. 

In  Appendix  C,  a  segmented  loader  map  of  the  LOWTRAN  code  run  on  the 
AFGL  CDC  GG00  is  given.  A  discussion  of  the  method  used  in  the  program  to  cal¬ 
culate  water  vapor  density,  .relative  humidity,  and  dew-point  temperature  is  con¬ 
tained  in  Appendix  D. 

An  additional  set  of  stratospheric  water  vapor  profiles  for  use  in  LOWTRAN 
is  described  in  Appendix  E.  In  Appendix  F,  some  previous  LOWTRAN  transmit¬ 
tance  and  radiance  comparisons  with  measurements  have  been  reprinted. 

The  LOWTRAN  5  code  will  be  made  available  from  the  National  Climatic 
Center,  Federal  Building,  Asheville,  NC  28801.  It  is  requested  that  users 
receiving  the  code,  remove  cards  LOW  320,  330  and  340  from  the  main  program 
(see  Appendix  A)  and  keypunch  their  name,  affiliation,  and  address  on  these  cards. 
These  cards  will  be  used  to  update  the  AFGL  LOWTRAN  mailing  list  and  for  noti¬ 
fication  to  users  of  changes  in  the  code.  They  should  be  mailed  to  F,  X.  Kneii-ys, 
APGL/OPI,  llanscomAFB,  Bedford,  MA  01731. 
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2.  MODEL  ATMOSPHERES 


The  altitude,  pressure,  temperature,  water  vapor  density,  and  ozone  density 
for  the  U.S.  Standard  atmosphere  and  fi\o  seasonal  model  atmospheres  are  pro- 
vided  as  basin  input  data  for  LOWTRAN.  The  model  atmospheres  correspond  to 
the  1962  U.  S.  Standard  atmosphere^  and  the  five  supplementary  models;  that  is, 
Tropical  {15°N),  Midlatitude  Summer  (45°N,  July),  Midlatitude  Winter  (45°N, 
January),  Subarctic  Summer  (G0°N,  July),  and  Subarctic  Winter  (60°N,  January). 
The  different  models  are  digitized  in  1-km  steps  from  0  to  25  km,  5-km  steps  from 

g 

25  to  50  km,  then  at  70  km  and  100  km  directly  as  given  by  McClatohey  et  ai. 

The  water  vapor  and  ozone  altitude  profiles  added  to  the  1962  U.S,  Standard 
atmosphere  by  McClatchey  et  alfi  were  obtained  from  Sissenwine  et  al^  and  Hering 

g 

et  al  respectively,  and  correspond  to  mean  annual  values.  The  water  vapor 
densities  for  the  1962  U.S,  Standard  atmosphere  correspond  to  relative  humidities 
of  approximately  50  percent  for  altitudes  up  to  10  km,  whereas  the  relative  humid¬ 
ity  values  for  the  other  supplementary  models  tend  to  decrease  with  altitude  from 
approximately  80  percent  at  sea  level  to  approximately  30  percent  at  10-km  altitude. 
The  Sissenwine  profiles  are  representative  of  "moist"  stratospheric  water  vapor 
content.  Alternative  "dry"  stratospheric  water  vapor  profiles  are  provided  in 
LOWTRAN  using  subroutine  DRYSTR  discussed  in  Appendix  E, 

The  temperature  profiles  for  the  six  model  atmospheres  as  a  function  of  alti¬ 
tude  arc  shown  in  Figure  1.  The  pressure  profiles  are  given  in  Figure  2.  Fig- 
gures  3a  and  3b  show  the  water  vapor  density  vs  altitude  from  0  to  100  km,  and 
an  expanded  profile  from  0  to  30  km.  Figures  4a  and  4b  and  Figures  5a  and  5b 
show  similar  profiles  for  ozone  and  for  the  uniformly  mixed  gases. 

It  is  assumed  in  this  report  that  mixing  ratios  of  the  gases,  C'()2,  NgO,  CH^, 
CO,  and  02  remain  constant  at  all  altitudes  al  the  following  values;  330,  0.  28, 

1.6,  0.073,  7.905  X  10'  ,  and  2,095  X  10J  parts  per  million  respectively.  These 
gases  as  a  whole,  with  the  exception  of  nitrogen,  will  be  referred  to  as  the  uni¬ 
formly  mixed  gases. 

9 

Measurements  made  from  balloon  flights  ,  have  shown  the  existence  of  nitric 
acid  in  the  earth's  atmosphere.  Although  nitric:  acid  is  of  only  minor  importance 
in  atmospheric  transmittance  calculations,  it  has  been  shown  to  be  a  significant 
source  of  stratospheric  emission,  particularly  in  the  atmospheric  window  region 
from  10  to  12  /mi,  Therefore,  nitric  acid  has  been  added  to  the  model  atmos¬ 
pheres  as  a  separate  atmospheric  absorber. 

The  concentration  of  atmospheric  nitr  ic  acid  varies  with  altitude  and  also  ap¬ 
pears  to  depend  on  latitude  and  season.  Figure  6  shows  the  volume  mixing  ratio 

Because  of  the  large  number  of  references  cited  above,  they  will  not  be  listed  here. 
See  References,  page  141, 
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Figure  i.  Temperature  vs  Altitude  for  the  Six  Model 
Atmospheres 


Figure  2,  Pressure  vs  Altitude  for  the  Six  Model 
Atmospheres 


Figure  3a,  Water  Vapor  Density  Profiles  vs  Altitude 
for  the  Six  Model  Atmospheres 


Figure  3b,  Water  Vapor  Density  Profiles  vs  Altitude 
for  the  Six  Model  Atmospheres  with  the  Region  from 
0  to  30  km  Expanded 
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RLTITUDE  t  KM  I 


Figure  4a.  Ozone  Density  Profiles  vs  Altitude  for  the 
Six  Modei  Atmospheres 


Figure  4b.  Ozone  Density  Profiles  vs  Altitude  for  the 
Six  Model  Atmospheres  with  the  Region  from  0  to  30  km 
Kxpanded 


UNIFORMLY  MIXED  GASES 


Figure  5a.  Profile  of  (P/PM  (Tu/T),  tlie  relative  Air  Density, 

vs  Altitude  for  the  Six  Model  Atmospheres.  The  density  of 

the  uniformly  mixed  gases  is  proportional  to  this  quantity, 

P  =  1013  mb  and  T  =  273  K 
o  o 


UNIFORMLY  MIXED  GASES 

Figure  5b.  Profile  of  (P/P  )  (T0/T),  the  Relative  Air  Density, 
vs  Altitude  for  the  Six  Model  Atmospheres  with  the  Region 
from  0  to  30  km  Expanded 
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VOLUME  MIXING  RATIO 


Figure  6.  Volume  Mixing  Ratio  Profile  for 
Nitric  .Acid  vs  Altitude,  from  the  Measure¬ 
ments  of  Evans,  Kerr,  and  Wardle*  .  This 
single  profile  is  used  with  all  of  the  six 
model  atmospheres 


profile  of  atmospheric  nitric  acid  as  a  function  of  altitude  from  the  measurements 
of  Evans,  Kerr,  and  Wardle,  For  the  purpose  of  this  report,  we  have  chosen 
this  profile  to  represent  a  mean  nitric  acid  profile  for  the  six  model  atmospheres 
in  the  LOWTRAN  program.  This  profile  appears  in  a  data  statement  in  the  pro¬ 
gram.  If  a  more  definitive  nitric  acid  profile  for  a  given  latitude  and  season  is 
available,  the  user  can  change  the  nitric  acid  concentration  by  simply  replacing 
the  data  statement  given  in  the  program. 

In  addition  to  the  model  atmospheres  provided  in  this  report,  the  user  has  the 
option  of  inserting  his  own  model  atmosphere  (specifically  designed  for  direct 
insertion  of  radiosonde  data),  or  of  building  another  model  by  combining  various 
parts  of  the  six  standard  models. 


3.  AEROSOL  MODELS 


3. 1  Introduction 

The  aerosol  models  built  into  LOWTRAN  5  have  been  completely  revised 
from  the  earlier  versions  of  the  LOWTRAN  code.  Previous  versions  of  LOWTRAN 
used  the  same  model  for  aerosol  composition  and  size  distribution  at  all  altitudes, 
simply  changing  the  concentrations  of  the  aerosols  with  height  which  means  that  the 
wavelength  dependence  of  the  aerosol  extinction  was  independent  of  altitude. 

The  variation  of  the  aerosol  optical  properties  with  altitude  is  now  modeled  by 
dividing  the  atmosphere  into  four  height  regions  each  having  a  different  type  of 
aerosol.  These  regions  are  the  boundary  or  mixing  layer  (0  to  2  km),  the  upper 
troposphere  (2  to  10  km),  the  lower  stratosphere  (10  to  30  km),  and  the  upper 
atmosphere  (30  to  100  km). 

The  earlier  versions  of  LOWTRAN  neglected  changes  in  aerosol  properties 
caused  by  variations  in  relative  humidity.  These  aerosol  models  were  represen¬ 
tative  of  moderate  relative  humidities  (around  30  percent).  The  models  for  the 
troposphere  (rural,  urban,  maritime  and  tropospheric'  which  were  previously 
used  in  LOWTRAN  313  and  4  have  been  updated  according  to  more  recent  measure¬ 
ments  and  also  are  now  given  as  a  function  of  the  relative  humidity.  In  addition, 
two  different  fog  models  have  been  introduced  into  the  program. 

Only  a  brief  description  of  the  new  aerosol  models  and  their  experimental  and 
theoretical  bases  will  be  presented  in  this  report  since  they  are  described  else¬ 
where  in  detail.  1*'  ^ 

3.2  Vertical  Distribution  in  the  Lower  Atmosphere 

The  range  of  conditions  in  the  boundary  layer  (up  to  2  km)  is  represented  by 
three  different  aerosol  models  (rural,  urban,  or  maritime)  for  each  of  several 


11.  Shettle,  E.  P. ,  and  Form,  R.W.  ( 1 97G)  Models  of  the  Atmospheric  Aerosols 

and  their  Optical  Properties,  in  AGARD  Conference  Proceedings  No.  183 
Optical  Propagation  in  the  Atmosphere.  Presented  at  the  Electromagnetic 
Wave' Propagation  Panel  Symposium,  Lyngby,  Denmark,  27-31  October 
1975,  AGARD-CP-183,  available  from  U.S.  National  Technical  Information 
Service  (No.  AD-A028-615). 

12.  Shettle,  E.  P. ,  and  Perm,  R.W.  (197S)  Models  of  the  Aerosols  of  the  Lower 

Atmosphere  and  the  Effects  of  llumiditv  Variations  on  their  Optical 
Properties,  AFGL-TR-79-0214,  17  Septe'STbFE  ‘ 
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meteorological  ranges  between  2  and  50  km,  and  as  a  function  of  humidity.  In 
the  boundary  layer  the  shape  of  the  aerosol  size  distribution  and  the  composition 
of  the  three  surface  models  are  assumed  to  be  invariant  with  altitude.  Therefore 
only  the  total  particle  number  is  being  varied.  Although  the  total  number  density 
of  aii'  molecules  decreases  approximately  exponentially  with  altitude,  there  is 
considerable  experimental  data  which  show  that  the  aerosol  concentration  very 
often  has  a  rather  different  vertical  profile.  One  finds  that,  especially  under 
moderate  to  low  visibility  conditions,  the  aerosols  are  concentrated  in  a  uniformly 
mixed  layer  from  the  surface  up  to  about  1-  to  2-km  altitude  and  that  this  haze 
layer  has  a  rather  sharp  top,  which  appears  to  be  associated  with  the  height  of  the 
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minimum  temperature  mpse  rate. 

The  vertical  distribution  for  clear  to  very  clear  conditions,  or  meteorological 
ranges  from  23  and  50  km,  is  taken  to  be  exponential,  similar  to  the  profiles  used 
in  previous  versions  of  I.OWTRAN.  However,  for  the  hazy  conditions  (10-,  5-, 
atid  2-km  meteorological  ranges)  the  aerosol  extinction  is  taken  to  be  independent 
of  height  up  to  1  km  with  a  pronounced  decrease  above  that  height. 

Above  the  boundary  layer  in  the  troposphere  the  distribution  and  nature  of  the 
atmospheric  aerosols  becomes  less  sensitive  to  geography  and  weather  variations. 
Instead,  the  seasonal  variations  are  considered  to  be  the  dominating  factor.  The 
aerosol  concentration  measurements  of  Clifford  and  Ringer**'  and  Hoffman  et  al17 


The  terms  "meteorological  rang  eh  and  "visibility"  are  not  always  used  correctly 
in  the  literature.  Correctly,  visibility  is  the  greatest  distance  at  which  it 

is  just  possible  to  see  and  identify  with  the  unaided  eye:  (a)  in  the  daytime,  a 
dark  object  ag.  hint  the  horizon  sky;  and  (b)  at  night,  a  known  moderately  intense 
light  source.  Meteorological  range  is  deFined  quantitatively,  eliminating  the  sub¬ 
jective  nature  of  the  observer  and  the  distinction  between  day  and  night.  Mete¬ 
orological  range  V  is  defined  by  the  Koschmiedor  formula 


1  ,  1 

V  -  —  1  n  — 

is  e 


3.912 
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where  fi  is  the  extinction  coefficient,  and  e  is  the  threshold  contrast,  set  equal 
to  0.02.  As  used  in  the  I.OWTRAN  computer  code,  the  inputs  arc  in  terms  of 
meteorological  range,  with  ,3,  the  extinction  coefficient,  evaluated  at  0.  55  pm. 

If  only  an  observer  visibility  V0|-,s  is  available,  the  meteorological  range  can  be 
estimated  as  V  K  (1.3  ±  0.3)  •  VQgs. 

13.  Johnson,  H.W.,  Ilering,  W.S.,  Gordon,  J.I.,  and  Fitch,  B.W.  (1979) 

Preliminary  Analysis  and  Modelling  Based  Upon  Project  OPAQUE  Profile 
and  Surface  Rata,  AFGI.-TR-79-0285,  November. 

14.  ITusohke,  R.  12.  (editor  )  (1959)  Glossary  of  Meteorology,  American 

Meteorlogical  Society,  Boston,  MA,  "03  8  pp. 


15.  Middleton,  W.  K.  Is..  (1952)  Vision  Through  the  Atmosphere,  Liniv,  of  Toronto 
Press,  250  pp.  ~ 


Ifi.  Bli fiord,  I.H.,  and  Ringer,  I,.  D,  (1999)  The  si/.c  and  number  distribution  of 
aerosols  in  the  continental  troposphere,  J,  Atmos,  Sci.  20:710-720. 

17.  Hofmann,  R.J.,  Rosen,  J.M.,  Pepin,  T.J.,  and  Pinniek,  R.G.  (1975) 
Stratospheric  aerosol  measurements  I:  Time  variations  at  northern 
latitudes,  J.  Atmos.  Sci.  32:1440-1456. 
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indicate  that  there  is  an  increase  in  the  particulate  concentration  in  the  upper 

troposphere  during  the  spring  and  summer  months.  This  is  also  supported  by  an 

1 8 

analysis  of  searchlight  data  by  Elterman  et  al. 

The  vertical  distribution  of  the  ae-'osol  concentrations  for  the  different  models 
is  shown  in  figure  7.  Between  2  and  30  km,  where  a  distinction  on  a  seasonal 
basis  is  made,  the  spring-summer  conditions  are  indicated  with  a  solid  line  and 
fall-winter  conditions  are  indicated  by  a  dashed  line. 


3.3  Effects  of  Humidity  Variations  on  Aerosol  Properties 

The  basic  effect  of  changes  in  the  relative  humidity  on  the  aerosols,  is  that  as 
the  relative  humidity  increases,  the  water  vapor  condenses  out  of  the  atmosphere 
onto  the  existing  atmospheric  particulates.  This  condensed  water  increases  the 
size  of  the  aerosols,  and  changes  their  composition  and  their  effective  refractive 
index.  The  resulting  effect  of  the  aerosols  on  the  absorption  and  scattering  of 
light  will  correspondingly  be  modified.  There  have  been  a  number-  of  studies  of 
the  change  of  aerosol  properties  as  a  function  of  relative  humidity.  The 

most  comprehensive  of  these,  especially  in  terms  of  the  resulting  effects  on  the 
aerosol  properties  is  the  work  of  HSnel. 

The  growth  of  the  particulates  as  a  function  of  relative  humidity  is  based  on 
the  results  tabulated  by  Hftnel*'*  for  different  types  of  aerosols.  Once  the  wet 
aerosol  particle  size  is  determined,  the  complex  refractive  index  is  calculated  as 

the  volume-weighted  average  of  the  refractive  indices  of  the  dry  aerosol  substance 

,  .  21 
and  water. 

3.4  Rural  Aerosols 

The  "rural  model"  is  intended  to  represent  the  aerosol  conditions  one  finds  in 
continental  areas  which  are  not  directly  influenced  by  urban  and/or  industrial 
aerosol  sources.  This  continental,  rural  aerosol  background  is  partly  the  product 
ol  reactions  between  various  gases  in  the  atmosphere  and  partly  due  to  dust  par¬ 
ticles  picked  up  from  the  surlace.  The  particle  concentration  is  largely  dependent 

18.  Elterman,  I..,  Wexlcr,  R.  ,  and  Chang,  D.  T.  (1909)  Features  of  troposphei  ic 

and  stratospheric  dust,  A ppl .  Opt.  8:893-903, 

19.  HSnel,  Gottfried  (1970)  The  properties  of  atmospheric  aerosol  particles  as 

functions  of  the  relative  humidity  at  thermodynamic  equilibrium  with  the 
surrounding  moist  air,  in  Advances  in  Geophysics,  Vol  19:73-188,  Edited 
by  IJ,  E.  Landsberg,  J.  Van  Mieghcm,  Academic.  Press7~New  York. 

20.  I-Ianel,  Gottfried  (1972)  Computation  of  the  extinction  of  visible  radiation  by 

atmospheric  aerosol  particles  as  a  function  of  the  relative  humidity,  based 
upon  measured  properties.  Aerosol  Sci.  3:377-386. 

21.  Ilale,  George  M.,  and  Querry,  Marvin  R,  (1973)  Optical  constants  of  water 

in  the  200-nm  to  200-um  wavelength  region,  Appl.  Opt.  12:555-563. 
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AEROSOL  VERTICAL  DISTRIBUTION  IN  LOWTRAN 


Figure  7a.  Vertical  Profiles  of  Aerosol 
Scaling  Factors  vs  Altitude 


AEROSOL  VERTICAL  DiSTRiBul iCri  IN  LOWTRAN 


Figure  7b.  Vertical  Profiles  of  Aerosol 
Scaling  Factors  vs  Altitude  with  the 
Region  from  0  to  40  km  Expanded 
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on  the  history  of  the  air  mass  carrying  the  aerosol  particles.  In  stagnating  air 
masses,  for  example,  under  w inter-type  temperature  inversions,  the  concentra¬ 
tions  may  increase  to  values  causing  the  surface  layer  visibilities  to  drop  to  i  few 
kilometers. 

The  rural  aerosols  arc  assumed  to  be  composed  of  a  mixture  of  70  percent  of 
water-soluble  substance  (ammonium  and  calcium  sulfate  and  also  organic  com¬ 
pounds)  and  30  percent  dust-like  aerosols.  The  refractive  index  for  these  com- 

22  23 

ponents  is  based  on  the  measurements  of  Veil/..  ' 

The  rural  aerosol  size  distribution  is  parameterized  as  the  sum  of  two  log¬ 
normal  size  distributions,  to  represent  the  multimodal  nature  of  the  atmospheric 

aerosols  that  has  been  discussed  in  various  studies.  These  parameters  for  rural 

24 

model  size  distribution  fall  within  what  Whitby  and  Cantrell  give  as  a  typical 
range  of  values  for  the  accumulation  (small)  and  coarse  (large)  particle  modes. 

To  allow  for  the  dependence  of  the  humidity  effects  on  the  size  of  the  dry 
aerosol,  the  growth  of  the  aerosol  was  computed  separately  for  the  accumulation 
and  coarse  particle  components.  In  computing  the  aerosol  growth,  changes  in  the 
width  of  the  size  distribution  was  assumed  negligible  so  only  (he  mode  radius 
was  modified  by  humidity  changes.  The  effective  refractive  indices  for  the  two 
size  components  are  then  computed  as  function  of  relative  humidity. 

Using  Mie  theory  for-  scattering  by  spherical  particles,  the  extinction  and 
absorption  coefficients  for  each  of  several  different  relative  humidities  were  cal¬ 
culated.  Figure  fl  shows  the  resulting  values  for  the  different  relative  humidities 
which  are  stored  in  the  LOWTRAN  code.  The  values  have  been  nor  malized  to  an 
extinction  coefficient  of  1.0  at  a  wavelength  of  0.  55  g,  which  is  the  way  values  are 
used  in  the  program. 


3.5  Urban  Aerosol  Model 

In  urban  areas  the  rural  aerosol  background  gets  modified  by  the  addition  of 
aerosols  from  combustion  products  and  industrial  sources.  The  urban  aerosol 
model  therefore  was  taken  to  be  a  mixture  of  the  rural  aerosol  with  carbonaceous 
aerosols.  The  sootlike  aerosols  are  assumed  to  have  the  same  size  distribution  as 
both  components  of  the  rural  model.  Tire  proportions  of  the  sootlike  aerosols  and 
the  rural  type  of  aerosol  mixture  are  assumed  to  be  20  percent  and  (10  percent 


22.  Volz,  Frederic  E,  (1072)  Infrared  absorption  by  atmospheric  aerosol  sub¬ 

stances,  J.  Geophys,  Res.  77:1017-1031. 

23.  Volz,  Frederic  E.  (1073)  Infrared  optical  constants  of  ammonium  sulfate, 

Sahara  dust,  volcanic  pumice,  and  flyash,  Appl.  Opt.  12:5 U4  —  5 ti 8 , 

24.  Whitby,  K,  T. ,  and  Cantrell,  B.  (1075)  Atmospheric  aerosols  —  characteris¬ 

tics  arrd  measurement,  International  Conf.  on  Environmental  Sensing  and 
Assessment,  Vol.  2,  Bas  Vegas,  Nov~  14-19  September. 
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respect ively.  The  refractive  index  of  the  sootlike  aerosols  was  based  on  the  soot 

■>  a 

data  in  Twitty  and  Weinman's"'  survey  of  the  refractive  index  of  carbonaceous 
materials. 

Figure  0  shows  the  extinction  and  absorption  coefficients  for  the  urban  models 
vs  wavelength,  As  with  the  rural  model  the  values  arc  normalized  so  the  extinc¬ 
tion  coefficient  is  1.0,  at  a  wavelength  of  0.  55  p. 

3.6  Maritime  Aerosol  Model 

The  conipositi  in  am)  distribution  of  aerosols  of  oceanic  origin  is  significantly 
different  from  continental  aerosol  types.  These  aerosols  are  largely  sea-salt 
particles  which  are  produced  by  the  evaporation  of  sea-spray  droplets  and  then 
have  again  grown  due  to  accretion  of  wa'ei  under  high  relative  humidity  conditions. 
Together  with  a  background  aerosol  of  more  or  less  pronounced  continental  charac¬ 
ter  they  form  a  fairly  uniform  maritime  aerosol  which  is  representative  of  the 
boundary  layer  in  the  lower  2  to  3  km  of  the  atmosphere  over  the  oceans,  but  which 
also  will  occur  over  the  continents  in  a  maritime  air  mass.  This  maritime  model 
should  he  distinguished  from  the  direct  sea -spray  aerosol  which  exists  in  the  lower 
10  to  20  meters  above  tne  ocean  surface  and  which  is  strongly  dependent  on  wind 
speed. 

The  mai  ■  ...•  aerosol  model,  therefore,  has  been  composed  of  two  components: 

one  which  developed  fiom  sea  spray;  and  a  continental  component  which  is  ass  ned 
identical  to  the  rural  aerosol  with  the  exception  that  the  very  large  particles  were 
eliminated,  since  they  will  eventually  be  lost  due  to  fallout  as  the  air  masses  move 
across  the  oceans.  This  model  is  similar  to  the  one  suggested  by  Junge^1’’  and 
is  supported  by  a  large  body  of  experimental  data. 

The  refractive  index  is  the  same  as  that  for  a  solution  of  sea  salt  in  water, 
using  a  volume-weighted  average  of  the  refractive  indices  of  water  and  sea  salt. 

The  refractive  index  of  the  sea  salt  is  primarily  taken  from  the  measurements  of 
Volz.  ^  *  The  normalized  extinction  and  absorption  coefficients  vs  wavelength  fot 
the  maritime  aerosols  are  shown  in  Figure  10  for  several  relative  humidities. 


25.  Twitty,  J.T.,  and  Weinman,  J.A.  (1971)  iiadiative  properties  of  carbonaceous 
aerosols,  J,  Appl.  Meteor.  10:725-731. 

20.  Junge,  Christian  E.  (10H3)  Air  Chemistry  and  Hadioactivity.  382  pp.  , 
Academic  Press,  New  York. 

27.  Junge,  C.  E.  (1972)  Our  knowledge  of  the  physieo-chernistry  of  aerosols  in 

the  undisturbed  marine  environment,  J.  Geophys.  Res,  77:5183-5200. 

28.  Volz,  Frederic  E.  (1072)  Infrared  refi  active  index  of  atmospheric  aerosol 

substance,  Appl.  Opt.  11:755-750. 
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Figure  9a.  Extinction  Coefficients  for-  the 
Urban  Aerosol  Model  (Normalized  to  1.  0  at 
0.  55  ») 
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Figure  9b.  Absorption  Coefficients  for  the 
Urban  Aerosol  Model  Corresponding  to 
Figure  9a 
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Figure  10a.  Extinction  Coefficients  for  the 
Maritime  Aerosol  Model  (Normalized  to 
1.  0  at  0.  55  u) 
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Figure  lOh.  Absorption  Coefficients  for  the 
Maritime  Aerosol  Model  Corresponding  to 
Figure  10a 
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3.7  Tropospheric  Aerosol  Model 

Above  the  boundary  layer  in  the  troposphere,  the  aerosol  properties  become 

more  uniform  and  can  be  described  by  a  general  tropospheric  aerosol  model.  The 

tropospheric  model  represents  an  extremely  clear  condition  and  can  be  represented 

by  the  rural  model  without  the  large  particle  component.  Larger  aerosol  particles 

will  be  depleted  due  to  settling  with  time.  This  is  consistent  with  the  changes  in 

24 

aerosol  size  distribution  with  altitude  suggested  by  Whitby  and  Cantrell. 

There  is  some  indication  from  experimental  data,  that  the  tropospheric  aero¬ 
sol  concentrations  are  somewhat  higher  during  the  spring -summer  season  than 
during  the  fall-winter  period.  ^  Different  vertical  distributions  are  given  to 
represent  these  seasonal  changes  (see  Section  3.2). 

The  dependence  of  the  particle  size  on  relative  humidity  is  the  same  as  for  the 
small  particle  component  of  the  rural  model.  The  resulting  normalized  extinction 
and  absorption  coefficients  are  shown  in  Figure  11  for  the  different  relative  humid¬ 
ities, 

3.8  Fog  Models 

When  the  air  becomes  nearly  saturated  with  water  vapor  (relative  humidity 

close  to  100  percent),  fog  can  form  (assuming  sufficient  condensation  nuclei  are 

present).  Saturation  of  the  air  can  occur  as  the  result  of  two  different  processes; 

the  mixing  of  air  masses  with  different  temperatures  and/or  humidities  (advection 

fogs),  or-  by  cooling  of  the  air  to  the  point  where  its  temperature  aporoaches  the 

20 

dew-point  temperature  (radiation  fogs). 

To  represent  the  range  of  the  different  types  of  fog,  we  use  two  of  the  fog 

models  presented  by  Silverman  and  Sprague,  following  the  work  of  Dyachenko. 

These  were  chosen  to  represent  the  range  of  measured  size  distributions,  and 

30 

correspond  to  what  Silverman  and  Sprague  identified  as  typical  of  radiation  fogs 
and  advection  fogs,  although  they  also  describe  developing  and  mature  fogs, 
respectively.  The  normalized  extinction  and  absorption  coefficients  for  the  two 
fog  models  are  shown  in  Figure  12  as  a  function  of  wavelength. 


29.  Byers,  H.IL  (19  59)  General  Meteorology,  540  pp.,  McGrawHill,  New  York. 

30.  Silverman,  B.A.,  and  Sprague,  E.  D.  (1970)  Airborne  measurement  of  in¬ 

cloud  visibility,  271-270,  Second  National  Conference  on  Weather  Modifica¬ 
tion,  Santa  Barbara,  CA,  G-9  April  1970,  American  Meteorological 
Society. 

31.  Dyanchsnko,  P.  V.  (1962)  Experimental  Application  of  the  Method  of 

Mathematical  Statistics  to  M icrostructural  Fog  arid  Cloud  Mesearc h , 

Trans.  A,  I.  Voyekova,  Main  Geophys.  Obscr. 
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Figure  11a.  Extinction  Coefficients  for  the 
Tropospheric  Aerosol  Model  (Normalized  to 
1.  0  at  0.  55  p) 


Figure  lib.  Absorption  Coefficients  for  the 
Tropospheric  Aerosol  Model  Corresponding 
to  Figure  11a 
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Figure  12a,  Extinction  Coefficients  for  the 
Fog  Models  (Normalized  to  1, 0  at  0.  55 
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Figure  12b.  Absorption  Coefficients  for  the 
Fog  Models  Corresponding  to  Figure  12a 
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3.9  Aerosol  Vertical  Distribution  in  the  Stratosphere  and  Mesosphere 

Measurement  programs  carried  out  over  many  years  show  that  in  the  10-  to 
30-km  region  there  exists  a  background  aerosol  in  the  stratosphere  which  has  a 
rather  uniform  global  distribution.  T*  '  '  background  aerosol  is  considered  to  be 
mostly  composed  of  sulfate  particles  formed  by  photochemical  reactions. 

These  background  levels  are  occasions.  '  a~ed  by  factors  of  100  or  more 
due  to  the  injection  of  dust  from  massive  voir  .ptions.  Once  such  particles 

have  been  injected  into  the  stratosphere  thej  -  c;  rad  out  over  large  portions  of 

the  globe  by  the  stratospheric  circulation  and  diffi  -  processes,  and  it  requires 
months  or  even  years  for  them  to  become  slowly  removed  from  the  Strato- 
sphere.  *  * 

There  occurs  also  a  seasonal  and  geographic  variation  of  the  stratospheric 
aerosol  layer  which  is  related  to  the  height  of  the  tropopause;  a  peak  in  the  aerosol 
mixing  ratio  (that  is,  ratio  of  aerosol  to  air  molecules)  occurs  several  kilometers 
above  the  tropopause. 

The  range  of  possible  vertical  distributions  is  represented  by  four  different 

profiles  (background  stratospheric,  moderate,  high  and  extreme  volcanic).  JCach 

of  these  distributions  is  then  modified  according  to  the  season.  The  different 

scaling  factors  for  these  vertical  profiles  are  shown  in  Figure  7. 

The  vertical  distribution  in  the  upper  atmosphere  above  30  to  40  km  is  very 

uncertain  because  of  the  difficulty  of  obtaining  reliable  data.  In  situ  measurements 

are  limited  to  those  obtained  by  rocket  flights,  and  these  altitudes  are  beyond  the 

normal  operational  range  of  most  lidar  and  searchlight  systems  which  provide 

most  of  the  remotely  sensed  data  up  to  30  or  40  km. 

The  most  likely  profile  for  this  region  is  the  one  labelled  as  "Normal  Upper 

Atmosphere"  in  Figure  7;  it  corresponds  to  a  constant  turbidity  ratio  of  «  0.  2 

above  40  km.  This  agrees  with  the  aerosol  extinction  profile  obtained  by  Cunnold 
3  6 

et  al  by  inverting  measurements  of  the  horizon  radiance  from  an  X-  15  aircraft. 

32.  Reiter,  E,R.  (1971)  Atmospheric  Transport  Processes  Part  2:  Chemical 

Tracers.  U.S.  Atomic  Energy  Commission,  Oak  Ridge,  TN  (TII>r2"5oT4) 

382  pp. 

33.  Volz,  F.  E.  (1975)  Distribution  of  turbidity  after  the  1912  Katmei  Eruption 

in  Alaska,  J,  Geophys.  Res.  80:2643 -2648. 

34.  Volz,  F.  E.  (1975)  Burden  of  volcanic  dust  and  nuclear  debris  after  injection 

into  the  stratosphere  at  40°-58uN. ,  J.  Geophys.  Res.  80:2049-2652, 

35.  Rosen,  J.M.,  Hofmann,  D.J.,  and  Laby,  J.  (1975)  Stratospheric  measure¬ 

ments  II:  the  worldw  ide  distribution,  J.  Atmos.  Sei.  32:1457-1462. 

36.  Cunnold,  D.M.,  Gray,  C.R.  ,  and  Merritt,  D.  C.  (1973)  Stratospheric  aerosol 

layer  detection,  J.  Geophys.  Res.  78:920-931. 
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Measurements  of  the  solar  extinction  through  the  atmospheric  limb  from  the 
37 

Apollo-Soyuz  mission  tend  to  support  this  model. 

38  39 

Ivlev's  ’  model  for  the  upper  atmosphere  is  shown  as  the  curve  labelled 

"Extreme  Upper  Atmosphere"  in  Figure  7.  It  is  largely  based  on  twilight  observa- 
40 

tions  which  neglected  multiple-scattering  effects.  As  a  consequence,  the  model 

has  to  assume  very  high  particulate  concentrations  in  the  upper  atmosphere  in 

order  to  be  consistent  with  observations. 

Nevertheless,  extinction  coefficients  for  the  extreme  upper-atmospheric  model 

are  consistent  with  the  extreme  values  that  have  been  observed  in  layers  of  a  few 

4142 

kilometers  thickness  by  Lidar,  *  inferred  from  rocket  observations  of 

43  44  '  45 

skylight,  ’  and  studies  of  noctilucent  clouds. 


3.10  Stratospheric  Aerosol  Models 

3.  10.  1  COMPOSITION  OF  BACKGROUND  STRATO¬ 
SPHERIC  AEROSOLS 

The  background  stratospheric  aerosols  are  taken  to  be  a  75  percent  solution 

46  47 

of  sulfuric  acid  in  water  following  the  work  of  Rosen  and  Toon  and  Pollack. 

The  complex  refractive  index  as  a  function  of  wavelength  is  based  on  the  meas- 
48  49  50 

urements  of  Remsberg  *  and  Palmer  and  Williams. 

The  size  distribution  is  chosen  to  be  consistent  with  the  concentrations  or  the 

particles  with  diameters  greater  than  0,  3  p  and  those  greater  than  0.  5  p  measured 
17  35 

by  Hofman  et  al  ’  and  the  concentration  of  condensation  nuclei  observed  by 
51  52 

Rosen  et  al  and  KSselau.  The  normalized  extinction  and  absorption  coefficients 
are  shown  in  Figure  13. 

3.  10.  2  VOLCANIC  AEROSOL  MODELS 

There  are  two  volcanic  size  distribution  models:  a"fresh  volcanic  model" 
which  repr  esents  the  size  distribution  of  aerosols  shortly  after  a  volcanic  eruption; 

and  an  "aged  volcanic  model"  representing  the  aerosol  about  a  year  after  an  erup- 

53 

tion.  Both  size  distributions  were  chosen  mainly  on  the  basis  of  Mossop’s 
measurements  following  the  eruption  of  Mt.  Agung. 

23 

The  refractive  index  for  these  models  is  based  on  the  measurements  of  Volz. 
The  resulting  normalized  extinction  and  absorption  coefficients  for  these  two 
models  are  shown  in  Figure  13. 


Because  of  the  large  number  of  references  cited  above,  they  will  not  be  listed  here. 
See  References,  page  141. 


34 


WAVELENGTH  (MICRONS) 


Figure  13a.  Extinction  Coel'l'icients  for  the 
Upper  .Atmospheric  Aerosol  Models  (Nor¬ 
malized  to  1.  0  at  0.  55  p) 
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Figure  13b,  Absorption  Coefficients  for  the 
Upper  Atmospheric  Aerosol  Models  Corre¬ 
sponding  to  Figure  13a 
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3.11  Upper  Atmosphere  Aerosol  Model 


The  major  component  of  the  normal  upper-atmospheric  aerosols  is  considered 

to  be  meteoric  dust,  which  is  consistent  with  the  conclusions  reached  by  Newkirk 
54  55 

and  Eddy'  and  later  Rosen  in  his  review  article.  Meteoric  or  cometary  dust 

also  form  some  of  the  layers  occasionally  observed  in  the  upper  atmosphere. 

42  56 

Poultney  '  has  related  the  lidar  observations  of  layers  in  the  upper  atmosphere 

either  to  cometary  sources  of  micrometeoroid  showers  or  noctilucent  cloud  ob- 

57 

servations.  Divari  et  al  have  related  observations  of  increased  brightness  of 
the  twilight  sky  to  the  Orinid  meteor  shower. 


The  refractive  index  of  meteoric  dust  is  based  on  the  work  of  Shettle  and 
58 

Volz  who  determined  the  complex  refractive  index  for  a  mixture  of  chondrite 

59 

dust  which  represents  the  major  type  of  meteorite  falling  on  the  earth. 

The  size  distribution  is  similar  in  shape  to  the  one  developed  by  Parlow  and 
60  61  62 

Ferry  by  applying  Kornblum's  '  *  theoretical  analysis  (of  the  micrometeoroid 

interaction  with  the  atmosphere  and  their  resulting  concentration  in  the  mesosphere) 
63 

to  the  NASA  model  of  the  meteoroid  influx  to  the  atmosphere.  There  are  two 
important  differences  between  the  present  size  distribution  model  and  B’arlow  and 

cn 

Ferry's.  First,  the  present  model  has  proportionately  more  smaller  particles, 


54.  Newkirk,  G.  Jr.,  and  Eddy,  J,A.  (1964)  Light  Scattering  by  Particles  in  the 

Upper  Atmosphere,  J.  Atmos.  Sci.  21:35-60. 

55.  Rosen,  J.M.  (1969)  Stratospheric  dust  and  its  relationship  to  the  meteoric 

influx,  Space  Sci.  Rev.  9:58-89. 

56.  Poultney,  S.  K.  (1974)  Times,  locations  and  significance  of  cometary  micro¬ 

meteoroid  influxes  in  the  earth's  atmosphere,  Space  Res.  14:707-708. 

57.  Divari,  N,  B. ,  Zaginalio,  Yu.  I.,  and  Koval'chuk,  L.  V.  (1973)  Meteoric  dust 

in  the  upper  atmosphere.  Solar  System  Res.  7:191-195,  (Translated  from 
Astronomicheskii  Vestnik  7:223-230).  ” 

58.  Shettle,  E.  P. ,  and  Volz,  F.  E.  (1976)  Optical  constants  for  a  meteoric  dust 

aehosol  model,  in  Atmospheric  Aerosols:  Their  Optical  Properties  and 
Effects,  a  Topical  Meeting  on  Atmospheric  Aerosols  sponsored  by  Optical 
Society  of  America  and  NASA  Langley  Research  Center,  Williamsburg, 
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and  second,  the  number  densities  for  all  size  ranges  are  several  orders  of  mag¬ 
nitude  larger  than  in  Farlow  and  Ferry'sDU  model.  These  differences  are  con¬ 
sistent  with  rocket  observations  in  the  upper  atmosphere.  ^ 

The  normalized  extinction  and  absorption  coefficients  for  this  meteoric,  dust 
model  for  the  aerosols  of  the  upper  atmosphere  are  shown  in  Figure  13  as  a  func¬ 
tion  of  wavelength. 

3.12  Use  of  the  Aerosol  Models 

The  aerosol  models  defined  in  this  report  are  representative  of  various  gen¬ 
eral  types  of  environments.  Yet,  the  simple  question:  "Which  model  should  be 
used  for  what  location  and  weather  situation?"  is  difficult  to  answer  precisely. 

Some  discussion  on  this  point  is  necessary  to  give  the  user  Some  guidance  in 
choosing  the  appropriate  model  for  a  given  condition. 

3.  12,  1  BOUNDARY  LAYER  MODELS 

For  the  boundary  layer  of  the  atmosphere  up  to  1  to  2  km  above  the  surface, 
the  composition  of  the  aerosol  particles  is  primarily  controlled  by  sources  (natural 
and  man-made)  at  the  earth's  surface.  The  aerosol  content  of  the  atmosphere  at 
a  given  location,  will  therefore  depend  on  the  trajectory  of  the  local  air  mass  dur¬ 
ing  the  preceding  several  days,  and  the  meteorological  history  of  the  air  mass. 

The  amount  of  mixing  in  the  atmosphere  is  controlled  by  the  temperature  profile 
and  the  winds.  Precipitation  will  tend  to  wash  the  aerosol  out  of  the  atmosphere, 
although  it  should  be  noted  that  "frontal  showers"  often  mark  the  boundary  between 
two  different  air  masses  with  generally  different  histories  and  correspondingly 
different  aerosol  contents. 

The  "rural"  and  the  "urban"  model  are  intended  to  distinguish  between  aerosol 
types  of  natural  and  man-made  origin  over  a  land  area.  Clearly,  the  man-made 
aerosol  will  be  predominantly  found  in  urban-industrial  areas.  How  ver,  it  is 
quite  likely  that  after  the  passage  of  a  cold  front,  clear  polar  air  also  covers  an 
urban  area  and  that  therefore  the  rural  aerosol  model,  which  is  free  of  the  com¬ 
ponent  of  industrial -carbonaceous  aerosols,  is  more  applicable.  After  a  few  days, 
as  the  clean  air  mass  begins  to  accumulate  local  pollution  however,  the  urban  model 
will  once  again  become  more  representative. 

Conversely,  very  often  the  pollution  plume  from  major  urban- industrial  areas 
may,  under  stagnant  weather  conditions,  diffuse  over  portions  of  a  continent  (fox- 
example,  Central  Europe,  Northeastern  United  States),  including  its  rural  sections. 


64,  Soberman,  R.K.,  and  Hemenway,  C.  L.  (1965)  Meteoric  dust  in  the  upper 

atmosphere,  J.  Geophys,  Res.  70:4943-4949. 

65.  Lindblad,  B.A.,  Arinder,  G. ,  and  Wiesel,  T.  (1973)  Continued  rocket 

observations  of  micrometeorites.  Space  Res.  13:1113-1120, 
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There  ia  also  a  distinct  difference  between  the  composition  of  aerosols  over 
the  ocean  and  those  over  land  areas  due  to  the  different  surface-based  sources. 
Aerosols  in  maritime  environments  have  a  very  pronounced  component  of  sea-salt 
particles  from  the  sea  water.  Sea-salt  particles  are  formed  from  sea  spray  from 
breaking  waves.  The  larger  particles  fall  out.,  but  the  smaller  particles  are  trans¬ 
ported  up  with  the  atmospheric  mixing  in  the  boundary  layer.  In  coastal  regions 
the  relative  proportions  of  particles  of  continental  and  oceanic  origins  will  vary, 
depending  on  the  strength  and  direction  of  the  prevailing  winds  at  time  of 
observation. 

While  changes  in  visibility  are  often  associated  with  changes  in  the  relative 
humidity,  (as  the  relative  humidity  approaches  100  percent  the  visibility  tends  to 
decrease),  it  is  not  possible  to  define  a  unique  functional  relationship  between  the 
visibility  and  relative  humidity  in  the  natural  atmosphere.  The  reason  for  this  is 
that  any  change  in  atmospheric  moisture  content  is  generally  also  associated  with 
a  change  in  the  aerosol  population  itself  due  to  change  of  the  air  mass.  Only  if  the 
aerosol  is  contained  in  a  closed  system,  where  only  the  humidity  changes,  can  such 
a  unique  relationship  be  developed.  The  measurements  presented  by  Filippov  and 
MirumyantsfiG  clearly  illustrate  the  difficulties  in  defining  a  simple  unique  expres¬ 
sion  relating  visibility  and  relative  humidity. 

3.  12.  2  TROPOSPHERIC  AEROSOL  MODEL 

The  tropospheric  aerosol  model  has  been  developed  primarily  for  application 

in  the  troposphere,  above  the  boundary  layer,  where  the  aerosols  are  not  as 

sensitive  to  local  surface  sources.  However,  the  tropospheric  model  should  be 

used  near  ground  level  for  particularly  clear  and  calm  conditions  (in  pollution- 

free  areas  with  visibilities  greater  than  30  to  40  km),  where  there  has  been  little 

turbulent  mixing  for  a  period  of  1  to  2  days,  permitting  the  larger  particles  to 

have  settled  out  of  the  atmosphere  without  being  replaced  by  dust  blown  into  the 

air  from  the  surface.  (The  sedimentation  rate  of  a  radius  aerosol  particle 

6  V 

in  the  lower  troposphere  is  approximately  1  km  per  day.  ') 

3.12.3  FOG  MODELS 

The  fog  models  described  in  Section  3.  9  were  presented  in  terms  of  the  atmos¬ 
pheric  conditions  leading  to  the  development  of  the  fog,  so  this  provides  a  good 
basis  for  deciding  which  fog  model  to  use.  In  more  general  terms,  the  visibilities 
will  be  less  than  200  m  for  thick  fogs  and  the  extinction  will,  be  virtually 

66.  Filippov,  V.L.,  and  Mirumyants,  S.  O.  ( 1972)  Aerosol  extinction  of  visible 
and  infrared  radiation  as  a  function  of  air  humidity,  Izv.  Atmos.  Oceanic 
Phys .  8:571-574. 

Kasten,  F.  (1968)  Falling  speed  of  aerosol  particles,  J.  Appl.  Meteor, 
7:944-947,  - 
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independent  of  wavelength.  For  these  conditions  the  adveetion  fog  model  should 
be  used.  For  light  to  moderate  fogs,  the  visibility  will  be  200  to  1000  m  and  there 
will  be  a  noticeable  difference  between  the  extinction  for  visible  wavelengths  and 
in  the  8-  to  12-pm  window.  For  such  eases  the  radiation  fog  model  should  be 
used.  For  thin  fog  conditions  where  the  visibility  may  be  1  to  2  km,  the  99  percent-  ' 
relative  humidity  aerosol  models  may  represent  the  wavelength  dependence  of  the 
atmospheric  extinction  as  well  as  any  of  the  fog  models. 

3.12.4  STRATOSPHERIC  AND  UPPER  ATMOSPHERE  MODELS 

The  background  stratospheric  model  is  representative  of  present  (1980)* 
stratospheric  conditions.  At  irregular  intervals  (on  the  order  of  years)  there  are 
volcanic  eruptions  which  inject  significant  amounts  of  aerosols  into  the  strato¬ 
sphere.  For  the  first  few  months  following  such  an  eruption  the  fresh  volcanic 
size  distribution  model  would  generally  be  the  best  one  to  use,  and  for  the  next 
year  or  so  after  that  the  aged  volcanic  size  distribution  model  should  be  used. 

The  choice  of  which  vertical  distribution  profile  to  use  would  depend  on  the 
severity  of  the  volcanic  eruption  and  how  long  ago  it  was.  The  moderate  volcanic 
profile  is  representative  of  the  stratospheric  conditions  throughout  the  Northern 
Hemisphere  during  the  mid  and  late  1960's  following  the  eruption  of  Mt.  Agung. 

It  is  also  typical  of  conditions  during  late  1974  and  1975  after  the  Volcan  de  Fuego 
erupt  ion. 

The  high  and  extreme  volcanic  models  are  somewhat  speculative  as  there  have 
been  no  direct  measurements  of  the  vertical  distribution  of  aerosol  for  such  con¬ 
ditions.  They  are  however  consistent  with  the  total  optical  thickness  for  aerosols 

33  3  ^  3 

inferred  shortly  after  several  major  volcanic  eruptions,  *  ’  such  as  Katmai 

and  Krakatoa,  as  well  as  the  effects  of  Mt.  Agung  in  the  Southern  Hemisphere. 

3.  12.  5  SEASONAL  AND  LATITUDE  DEPENDENCE  OF 
AEROSOL  VERTICAL  DISTRIBUTION 

In  the  mid-latitudes  as  the  names  suggest  the  spring-summer  aerosol  vertical 
profiles  are  intended  to  be  used  during  the  spring  and  summer  seasons  and  the 
fall-winter  profiles  used  during  the  fall  and  winter  seasons.  However,  the  sea¬ 
sonal  changes  in  aerosol  distribution  arc  partially  a  reflection  of  the  changes  in 


’'Note  added  in  Proof.  The  eruption  of  Mt.  St.  Helens  (May  1980)  injected  signifi¬ 
cant  amounts  of  volcanic  dust  into  the  atmosphere.  However,  it  appears  most  of 
it  remained  in  the  troposphere  where  it  cun  be  expected  to  settle  out  or  be  washed 
out  within  a  few  weeks.  On  the  basis  of  the  limited  quantitative  information  avail¬ 
able  at  this  early  date,  a  best  guess  would  be  to  use  the  moderate  volcanic  profile 
to  represent  the  amount  added  to  the  stratosphere. 

68,  Diermendjian,  D.  (1973)  On  volcanic  and  other  turbidity  anomalies, 

Advances  in  Geophys.  16:267-296. 
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Table  1.  Typical  Conditions  for  Aerosol  Model  Applications 


Distribution 


Poi'  optical  thickness  approximately  0.  03,  up  to  a  few  years  after 
eruption,  for  example.  Northern  Hemisphere,  1964  to  1968. 


2.3  High  Volcanic  Profile  and  Prosh  or  Aged  Particle  Size  Distribution 
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the  tropopause  height  (especially  for  stratospheric  aerosols).  So  in  the  tropical 
regions  where  the  tropopause  is  generally  higher,  it  is  recommended  that  the 
spring-summer  aerosol  profile  be  used.  Analogously  is  the  subarctic  regions 
where  the  tropopause  is  lower,  it  is  recommended  that  the  fall -winter  profile  be 
used. 

3.  12.  6  GENERAL  REMARKS  ON  APPLICABILITY  OP’ 

THE  AEROSOL  MODELS 

Typical  conditions  for  which  the  different  aerosol  models  apply  as  discussed 
in  detail  above  are  summarized  in  Table  1.  However,  it  must  be  emphasized  that 
these  models  only  represent  a  simplified  version  of  typical  conditions.  It  is  not 
practical  to  include  all  the  details  of  natural  aerosol  distributions  nor  are  existing 
experimental  data  sufficient  to  describe  the  frequency  of  occurrence  of  the  different 
conditions.  While  these  aerosol  models  were  developed  to  be  as  representative  as 
possible  of  different  atmospheric  conditions,  it  should  be  kept  in  mind  that  the 
"rural’'  aerosol  model  does  not  necessarily  exactly  reproduce  the  optical  proper¬ 
ties  in  a  given  rural  location  at  a  specific  time  and  date,  any  more  than  the  mid¬ 
latitude  summer  model  atmosphere  would  exactly  reproduce  the  actual  temperature 
and  water  vapor  profiles  for  that  same  specific  time  and  location. 

4.  GEOMETRY 

In  general,  ..arth  curvature  has  a  greater  influence  on  the  path  length  (and 
hence  on  the  transmittance)  than  atmospheric  refraction.  For  long  slant  paths 
with  zenith  angles  close  to  90°  in  the  lower  layers  of  the  atmosphere,  however, 
refractive  effects  can  cause  a  significant  increase  in  the  path  length  (up  to  30  per¬ 
cent  for  a  90*  path  to  space  from  ground  level).  Figure  14  shows  the  effect  of 
atmospheric  refraction  on  defining  the  minimum  height  of  a  path  trajectory  from 
space.  The  minimum  height  referred  to  here  is  also  known  as  the  tangent  height. 

In  Figure  14  the  difference  between  the  geometrical  (no  refraction)  and  the  actual 
minimum  height  is  plotted  against  the  actual  minimum  height  for  three  different 
model  atmospheres.  The  sketch  in  the  upper  right-hand  corner  of  Figure  14  indi¬ 
cates  that  there  is  also  a  discrepancy  in  the  earth  center  angle  [}  subtended  by  the 
trajectory,  when  refraction  is  significant.  The  difference  |3  -  shown  in  Figure 
14  is  equal  to  the  total  angular  deviation  tp  of  the  trajectory  due  to  refraction. 

For  many  applications  it  is  necessary  i.o  account  not  only  for  the  effect  of 
refraction  and  earth  curvature  on  the  transmittance  over  a  given  path  trajectory, 
but  also  on  the  purely  geometrical  aspects  of  the  trajectory  itself.  For  example, 
the  total  deviation  ip,  angle  of  arrival  4>,  or  angle  fi  subtended  by  the  path  trajectory 
may  be  required  as  illustrated  in  Figure  15.  LOWTRAN  calculates  the  quantities 
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Figure  14,  The  Difference  Between  Unrefracted  and  Refracted  Tangent  Height 
Positions  as  a  Function  of  Altitude  for  Three  Model  Atmospheres  Based  on  the 
33 -Layer  Model 
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Figure  15.  General  Schematic  of  a  Refracted  Path 
From  Altitudes  HI  to  H2  Showing  the  Angles  Defin¬ 
ing  the  Trajectory 


ip,  <f>,  (3  and  slant  range  on  the  basis  of  a  layered  atmosphere  in  the  following 
paragraphs. 

The  earth's  atmosphere  is  assumed  to  be  divided  into  a  series  of  concentric 
spherical  layers  for  each  of  which  a  mean  refractive  index  is  defined.  However, 
the  non-sphericity  of  the  earth  is  taken  into  account  to  some  extent  by  using  a 
different  eartli  radius  for  each  latitude  (associated  with  a  given  model  atmosphere). 

Consider  the  trajectory  of  a  ray  passing  from  heights  111  to  H 2  at  an  initial 
zenith  angle  0  .  T.et  z.  and  z.+^  define  the  boundary  heights  of  a  given  layer,  and 
let  0^  and  D . j  be  the  local  zenith  angles  at  the  respective  boundaries  (see  Figure 
15).  Then  at  a  height  of  z.+^,  the  angle  of  refraction  is  0.+j.  The  angle  of  inci¬ 
dence  Oj  at  height  z^+1  can  be  defined  as 

sin  oj  =  (Ro  +  z.)  sin  0./(Ro  +  m+1)  .  (1) 


Applying  Snell's  law  at  boundary  z^+1,  we  have 
n.  sin  k.  -  n. ,  ,  sin  O. 


i  i+1 


i+1 


(2) 
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where  m  and  n.+  1  are  the  mean  refractive  indices  of  the  layers  above  z.  and  z.+^ 
respectively. 

Substituting  for  sin  o',  in  Eq.  (2),  we  have 

ni(Ro  +  2i)  sin  0.  =  n.+1  (Rq  +  z.+1>  sin  0.  +  1  .  (3) 

It  follows  from  symmetry  that 

ni(Ro  +  zi>  3in  6i  =  ni-l  (Ro  +  Zi-1]  3in  9i-l 

=  n  (R  +  HI)  sin  8 
oo  o 

=  const  .  (4) 

Therefore,  the  angle  of  refraction  at  any  level  z  can  be  written  in  terms  of  the 
initial  input  conditions  and  the  refractive  index  nQ  of  the  layer  above  HI  as 

sin  9  =  nQ  (Rq  +  HI)  sin  0o/n(RQ  +  z)  .  (5) 

The  angle  p.  subtended  at  the  center  of  the  earth  by  the  intersection  of  the  ray  with 
the  layer  z^  to  z.+1  is  given  by 

Pi  =  ®i  -  «i  •  (6) 

Thus  the  total  earth  center  angle  subtended  by  the  ray  when  traversing  the  atmos¬ 
phere  from  HI  to  H2  is 

m-1 

P  *  2  (flj  -  V  (7) 

i 

m-1 

=  £  lain'1  {A/n.(Ro  +  z.)}  -  sin'1  {A/n1(Ro  +  z.  +  1)}|  (8) 

i 

where  m  is  ihe  number  of  levels  between  HI  and  H2.  and  A  =  n  (R  +  HI)  sin  Q  . 

O  O  i) 

The  angle  of  arrival  <j)  of  the  ray  at  is  given  by 

<t>  =  180°  -  sin'1  {A/n  j<R  +  H2)}  .  (9) 
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The  total  angular  deviation  of  the  trajector  ip  is  given  by 

=  (3  -  $  -  0o  +  180  .  d°) 

The  effective  path  length  between  levels  z.  and  z^+j  is  given  by 

DSi  =  (R  +  z  )  sin  0,/sin  fr  for  0°  <  0  <  180°  (11) 

for  0=0°  and  180u,  DSi  =  z.+  1  -  z..  If  we  assume  that  the  equivalent  absorber 
amount  per  unit  path  length  u  for  a  given  gas  varies  exponentially  with  altitude,  we 
can  write 


1 

u  dz  =  H.  tu(Zj)  -  w(Zj+j)I  d-2) 

z. 

i 

where  IT  =  (z.  +  1  -  z.)/loge  [w(zi)/w(z.+1>] .  The  amount  of  absorber  W.  along  a 
path  of  length  DS.  between  altitudes  z.  and  z.+1  is  therefore  given  by 


DS. 


o 


i 


ns.(u)(z.)  -  w<zi+1)] 
Togglwiz^/wfz^j)] 


(13) 


The  total  equivalent  absorber  amount  W  for  a  given  atmosphere  path  is  given  by  the 

m-1 

sum  of  the  W.  values  for  all  layers;  that  is,  W  =  L  W.  where  rn  is  the  number  of 
1  i=  1  1 

of  levels  traversed  by  the  path. 
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4.1  Refractive  Index  of  Air 


69 

The  following  simplified  version  of  Edlen's  expression  for  the  refractive 
index  of  air  is  used  in  LOWTRAN 


(n  -  1)  10+6  = 

a 


^77.46  +  oa|9 


p 

T 


Ph2° 

1013 


^43.49  -  — - —■ 


(14) 


where  p^  ^  and  P  refer  respectively  to  the  partial  pressure  of  water  vapor  and 

atmospheric  pressure  in  millibars,  T  is  atmospheric  temperature  in  degrees 
Kelvin,  and  A  is  the  wavelength  in  micrometers  (pm). 

The  above  expression  has  been  used  over  the  entire  wavelength  range  0.  2  to 

69 

28.  5  pm  in  LOWTRAN.  Although  Edlen's  expression  for  the  refractive  index  of 
air  is  widely  used  in  both  the  visible  and  infrared  spectral  regions,  it  is  question¬ 
able  how  far  it  should  be  used  into  the  untraviolet  and  into  the  far  infrared  since 
the  formula  is  based  primarily  on  measurements  made  in  the  visible  part  of  the 
spectrum  from  0.  43  to  0.  8  pm. 


4.2  Geometrical  Path  Configurations 

When  using  LOWTRAN,  the  type  of  atmospheric  path  for  which  a  calculation  is 
to  be  made  must  be  specified  according  to  one  of  the  three  broad  categories  listed 
below, 

TYPE  1.  Horizontal  path;  that  is,  a  constant  pressure  path  where  the 
effects  of  earth  curvature  and  refraction  are  negligible, 

TYPE  2.  Slant  paths  between  two  altitudes  from  HI  to  H2. 

TYPE  3.  Slant  paths  to  space  from  initial  altitude  HI. 

The  variations  within  the  latter  two  categories  for  both  upward  and  downward 
path  trajectories  can  be  seen  from  Figure  16. 

It  will  be  noted  that  two  trajectories  are  possible  for  a  given  set  of  input 
parameters,  HI,  H2,  and  9  for  a  downward  looking  path  (TYPE  2),  provided  that 
H2  lies  between  HI  and  the  minimum  height,  HMIN. 

In  most  instances,  the  reader  will  not  be  aware  that  two  paths  are  possible 
for  a  given  set  of  input  conditions.  For  such  a  case,  LOWTRAN  will  execute  the 
shorter  path  condition  (Figure  16d)  and  print  out  a  message  to  the  effect  that  the 
case  shown  in  Figure  16e  does  exist.  Should  the  reader  decide  to  run  the  latter 
case,  he  need  only  set  the  parameter  LEN  equal  to  unity  and  resubmit  the  case. 


69.  Edlen,  B.  (1966)  Metrologia  2:12. 
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(d)  («) 


Figure  16.  Geometrical  Path  Configurations:  (a)  Horizontal  Paths,  (b)  Slant 
Paths  Between  Two  Altitudes  HI  and  H2,  (c)  Slant  Paths  to  Space,  (d)  A  Possible 
Trajectory  for  a  Downward-Looking  Short  Path  where  HMIN  <  H2  <  HI,  and 
(e)  A  Possible  Trajectory  for  a  Downward -Looking  Long  Path  Where 
HMIN  <112  <111 


5,  ATMOSPHERIC  TRANSMITTANCE 


In  the  LOWTRAN  model,  the  tola!  atmospheric  transmittance  at  a  given  wave- 
number  averaged  over  a  20 -cm  *  interval  is  given  by  the  product  of  the  average 
transmittances  due  to  molecular  band  absorption,  molecular  scattering,  aerosol 
extinction,  and  molecular  continuum  absorption.  The  molecular  band  absorption 
is  composed  of  four  components;  namely  the  separate  transmittances  of  water 
vapor,  ozone,  nitric  acid  and  the  uniformly  mixed  gases  (C02#  NgO,  CH^,  CO, 

02  and  N2). 

The  average  transmittance  due  to  molecular  band  absorption  is  represented 
by  a  single  parameter  empirical  transmittance  function.  The  argument  of  the 
transmittance  function  is  the  product  of  a  wavenumber  dependent  absorption 
coefficient  and  "an  equivalent  absorber  amount"  for  the  atmospheric  path. 

5.1  Molecular  Band  Tranuroittance 

In  the  LOWTRAN  transmittance  model,  the  average  transmittance  T  over  a 
20-cm"*  interval  (due  to  molecular  absorption)  is  represented  by  a  single  param¬ 
eter  model  of  the  form 


t  -  f(C  w  *  DS) 


(15) 


where  is  the  LOWTRAN  wavenumber-dependent  absorption  coefficient  and  w  * 
is  an  "equivalent  absorber  density"  for  the  atmospheric  path,  DS,  defined  in  terms 
of  the  pressure  P(z),  temperature  T(z),  concentration  of  absorber  u>  and  an 
empirical  constant  n  as  follows 


(16) 


where  Pq  and  Tq  correspond  to  STP  (1  atm,  273K).  If  Eq,  (16)  is  substituted  in 
Eq,  (15)  and  n  is  set  to  zero  and  unity,  respectively,  Eq.  (15)  reverts  to  the  well- 
known  weak-line  and  strong-line  approximations  common  to  most  band  models. 

The  form  of  the  function  f  and  parameter  n  was  determined  empirically  using 
both  laboratory  transmittance  data  and  available  molecular  line  constants.  In 
both  cases,  the  transmittance  was  degraded  in  resolution  to  20  cm'*  throughout 
the  entire  spectral  range  covered  here.  It  was  found  that  the  functions  f  for  HgO 
and  the  combined  contributions  of  the  uniformly  mixed  gases  were  essentially 
identical,  although  the  parameter  n  differed  in  the  two  cases.  Mean  values  of  n 
were  determined  to  be  0.  9  for  HgO,  0.  75  for  the  uniformly  mixed  gases,  and  0.4 
for  ozone. 
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Figures  17a,  band  c  show  the  LOWTRAN  "equivalent  absorber  densities"  given 
by  Eq,  (16)  and  the  true  absorber  densities  vs  altitude  for  water  vapor,  ozone  and 
the  uniformly  mixed  gases.  The  profiles  shown  in  these  figures  are  for  the  1962 
U.  S.  Standard  atmosphere,  (MODEL  -  6). 

Figure  18  shows  the  LOWTRAN  empirical  transmittance  functions  defined  by 
Eq.  (15)  vs  the  log.^Q  of  the  effective  optical  cfepth  (C^u  *DS).  The  solid  function 
shown  is  used  for  water  vapor  and  the  uniformly  mixed  gases.*  The  dashed  func¬ 
tion  is  applicable  to  ozone. 

For  sufficiently  small  values  of  the  argument  *DS,  the  transmittance 
functions  f  were  modified  for  calculations  for  atmospheric  layers  of  small  optical 
thickness.  For  cases  where  (0.  999  :£  r  s  1)  the  transmittance  functions  have  the 
analytic  form 

T  =  1  -  a  (C^u  *DS)b  (17) 

with  a  =  0.  088  and  b  =  0.  81  for  HgO  and  the  uniformly  mixed  gases  and  a  =  0.  055 
and  b  =  1.  03  for  ozone.  This  pseudo-linear  approximation  in  Eq.  (17)  is  used  in 
the  computer  program  for  transmittances  between  0.  999  and  1. 

The  parameters  a  and  b  were  determined  from  a  least-squares  fit  of  the 
empirically  derived  transmittance  function  in  Eq.  (15). 

Absorption  coefficients  for  water  vapor,  ozone,  and  the  combined  effects  of 
the  uniformly  mixed  gases,  digitized  from  the  spectral  curves  of  McClatchey 
et  al,  ®  are  included  as  data  Tor  LOWTRAN,  The  transmittance  spectra  from  which 
the  coefficients  were  derived  were  first  degraded  in  resolution  to  20  cm  1  and  the 
data  paints  were  digitized  at  steps  of  5  cm  For  the  ultraviolet  and  visible  ozone 
bands,  the  absorption  coefficients  were  digitized  at  500  cm'1  and  200  cm  1  inter¬ 
vals  respectively. 

The  absorption  coefficients  for  water  vapor  are  shown  in  Figures  19a  and  b. 
Figure  19a  shows  the  coefficients  in  the  region  from  350  to  5000  cm  ^  and  Figure 
19b  the  region  from  4000  to  24,  000  cm 

Figures  20a,  b,  and  c  show  the  absorption  coefficients  for  ozone.  Figure  20a 
spans  the  spectral  region  from  350  to  5000  cm  \  Figure  20b  the  region  from  4000 
to  24,  000  cm  \  and  Figure  20c  the  region  from  20,  000  to  50,  000  cm 

The  absorption  coefficients  for  the  uniformly  mixed  gases  are  shown  in  Fig¬ 
ures  21a  and  b.  The  spectral  region  from  350  to  5000  cm  1  is  shown  in  Figure  21a 
and  the  region  from  4000  to  14,  000  cm  1  in  Figure  2  lb. 

#  70 

Gruenzel  lias  pointed  out  that  in  previous  versions  of  LOWTRAN,  the  value  of 
FW  for  T  =  0.  88  was  in  error.  The  correct  value  is  0,4838,  not  0.4342, 

70,  Gruenzel,  R.R.  (1978)  Applied  Optics  17:2591. 
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WATER  VAPOR  DENSITY  (GM/CM2-KM) 


Figure  17.  Profiles  of  True  and  "Equivalent"  Density  vs  Altitude, 
1962  U.S,  Standard  Atmosphere:  a.  water  vapor,  b.  ozone,  and 
c.  uniformly  mixed  gases  (relative  to  STP) 


s 


Figure  18.  LOWTRAN  Empirical  Transmittance  Functions 
vs  Log10  of  the  Effective  Optical  Depth  (C^u>  *DS) 


5.2  Nitric  Acid 

The  transmittance  due  to  HNO,  has  been  assumed  to  lie  in  the  weak-line  or 

J  -1 

linear  region.  Absorption  coefficients  digitized  at  5-cm  intervals  for  the  5.9-pm, 

7,  5 -pm,  and  11.  3 -pm  bands  of  HNO^  have  been  incorporated  into  the  LOWTRAN 

program  as  a  subroutine  (Subroutine  HN03).  These  coefficients  were  obtained  by 

7 1 

Goldman,  Kyle,  and  Bonomo  by  fitting  their  experimental  results  with  the  sta¬ 
tistical  band  model  approximation,  and  are  shown  in  Figure  22, 

5.3  Nitrogen  Continuum  Absorption 

The  continuum  due  to  collision-induced  absorption  by  nitrogen  in  the  4-gm 

72 

region,  is  included  in  LOWTRAN  based  on  the  measurements  of  Reddy  and  Cbo 
73  6 

and  Shapiro  and  Gush  0  (see  also  McClatohey  et  al  )  and  is  shown  in  Figure  23, 

71,  Goldman,  A,,  Kyle,  T.G.,  and  Bonomo,  F.W.  (1971)  Statistical  band  model 

parameters  and  integrated  intensities  for  the  5.9-p,  7.  5-p,  and  11.3-p 
bands  of  HNOg  vapor,  Appl,  Opt,  1:65, 

72,  Reddy,  S.R.,  and  Cho,  C.W.  (1965)  Cansd.  J.  Physics  43:2331. 

73,  Shapiro,  M.M.,  and  Gush,  H.P.  (1966)  Canad.  J.  Physics  44:649. 
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Figure  19.  Absorption  Coefficient  C  for  Water  Vapor; 
a.  from  3 50  to  5000  cm'^,  b.  from  4000  to  24,  000  cm 
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WAVENUMBER  ( CM-1  ) 


Figure  21.  Absorption  Coefficient  Cv  for  the  Uniformly 
Mixed  Gases:  a.  from  350  to  5000  cm-^,  b.  from  4000 
to  14,  000  cm'l 


The  transmittance  due  to  continuum  absorption  is  assumed  to  follow  a  simple 
exponential  law. 

5.4  Molecular  Scattering 

The  attenuation  coefficient  (km*1)  due  to  molecular  scattering,  ABS(6),  is 
introduced  into  LOWTRAN  via  the  following  expression 

ABS(G)  =  y4/(9.  26799  X  1018  -  1.  07123  X  109  X  i/2)  (18) 

where  v  is  in  wavenumbers  (cm  ^).  The  above  expression  was  obtained  from  a 

74 

least -square  fit  to  molecular  scattering  coefficients  published  by  Penndorf  and 
is  shown  in  Figure  24.  This  function  is  a  change  from  the  previous  LOWTRAN 
codes  and  improves  the  fit  in  the  ultraviolet.  The  errors  in  the  new  function  are 
now  less  than  1  /2  percent  from  0.  2  to  20  p. 


WHVETNUMBcR  f  CM- 1  1 


Figure  24.  Attenuation  Coefficient  C  Due  to  Molecular'  Scat¬ 
tering,  from  4000  to  54,000  cm'*  v 


74.  Penndorf,  R.  (1957)  Tables  of  the  Refractive  Index  for  Standard  Air  and  the 

Rayleigh  Scattering  Coefficient  for  the  Spectral  Region  between  0,2  and  20  p 
and  Their  Application  to  Atmospheric  Optics,  J.  Opt.  Soc.  Amer.  47:176- 
182. 
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5.5  Water  Vapor  Continuum 


The  attenuation  due  to  the  water  vapor  continuum  still  eludes  a  complete 
theoretical  explanation.  At  present,  it  appears  that  it  results  from  the  accumu¬ 
lated  attenuation  of  the  distant  wings  of  H20  absorption  lines,  emanating  princi¬ 
pally  in  the  far  infrared  part  of  the  spectrum.  This  attenuation  due  to  molecular 
line  broadening  occurs  as  a  result  of  collisional  interactions  between  molecules; 
that  is,  collisions  between  two  HgO  molecules  and  those  of  other  gases  (principally 
HgO:^  collisions).  Other  postulates,  such  as  the  phenomenon  being  caused  by 
other  absorption  mechanisms  involving  HgO  dimers,  remain  possibilities  yet  to  be 
proven. 

However,  all  that  can  be  done  at  present  is  to  account  for  the  water  vapor 
continuum  phenomenon  empirically,  based  on  limited  experimental  measurements, 
until  better  line  shape  theories  become  available.  It  should  be  emphasized  that 
further  accurate  and  well-controlled  measurements  are  urgently  required  in  order 
to  account  for  this  phenomenon  in  real  atmospheric  situations  with  confidence. 

The  general  formulation  used  to  account  for  the  water  vapor  continuum  atten¬ 
uation  at  a  fixed  temperature,  has  been  to  define  the  transmittance  “(y)  for  a  path 
length,  DS,  as  follows 

T(„)  =  e'!t(u)DS 

where  the  attenuation  coefficient  k(i/)  is  given  by 


k^>  =  'CSPH20+CN(PT-PH20)Iw 


k(r)  =  Cg  PH^Q  +  (PT  -  w 


where  Pjj  ^  and  PT  refer  to  the  water  vapor  partial  pressure  and  the  ambient 

pressure  respectively  (atm),  and  u>  defines  the  quantity  of  water  vapor  per  unit 

-2  -1 

path  length  (gtn  cm  km  ).  The  quantities  Cg  and  C'^  are  generally  referred  to 
as  the  self-  and  foreign  (nitrogen)-broadening  coefficients  for  water  vapor. 

5.  5.  1  0-  TO  11  -pm  H2C  CONTINUUM 

Recently,  a  review  of  available  water  vapor  continuum  experimental  measure- 

75 

ments  were  made  by  Roberts  et  al  in  the  10-pm  region.  These  workers  found 

75.  Roberts,  R.E.,  Selby,  J.E.A.,  and  Biberman,  L.M.  ( 1976)  Infrared 

continuum  absorption  by  atmospheric  water  vapor  in  the  8-12  pm  window, 
Applied  Optics  14:2085. 


that  an  empirical  expression  of  the  form  given  in  Eq.  (20)  (below),  provided  a 
good  fit  to  the  wavenumber  dependence  of  the  measured  water  vapor  continuum 
attenuation  coefficients  at  296  K.  Also,  the  water  vapor  continuum  attenuation 
coefficient  has  been  found  to  have  a  significant  temperature  dependence*  Based 
on  the  laboratory  measurements  of  Burch  using  samples  of  water  vapor  at  ele¬ 
vated  temperatures,  an  approximate  empirical  expression  was  obtained  by  Roberts 
75 

et  al  for  the  temperature  dependence  which  is  given  in  Eq.  (21)  below.  It  was 
found  that  the  attenuation  coefficient  due  to  the  water  vapor  continuum  increases 
as  the  temperature  decreases.  That  is,  for  a  fixed  amount  of  water  vapor  in  a 
given  path,  one  would  expect  more  absorption  at  colder  temperatures  and  less 
absorption  at  warmer  temperatures.  This  is  a  somewhat  unusual  phenomenon. 

Iri  practice  one  finds  less  water  vapor  in  the  atmosphere  under  cold  conditions, 
therefore,  the  effect  of  temperature  on  the  attenuation  in  the  8-  to  14 -pm  region 
plays  two  competing  roles,  through  the  total  water  content  of  the  path  and  the 
attenuation  coefficient. 

The  empirical  fits  to  the  wavenumber  and  temperature  dependence  of  the 

75 

water  vapor  continuum  described  in  Roberts  et  al  have  been  used  in  LOWTRAN 

with  the  appropriate  conversion  of  units,  as  follows: 

-1  +2  -1 

The  attenuation  coefficient  C  gm  cm  atm  at  296  K  is  given  by  the 

s 

following  expression  in  the  8-  to  14-prn  region 


C  (p,  296)  =  4.  18  +  5578  exp  (-7.  87  X  10*3  v) 

5 


(20) 


-1  4 

where  p  is  the  wavenumber  in  cm  (note  that  p  -  10  /X,  where  X  is  the  wavelength 
in  pm). 

Figure  25a  shows  a  plot  of  Cg(p,  296)  vs  wavenumber  in  the  8-  to  14-pm 
region, 

The  temperature  dependence  of  the  coefficient  Cg  was  found  to  vary  as 


Cs(r.  T)  =  Cs(r, 


296)  exp 


(21) 


where  T  is  the  temperature  in  degrees  Kelvin. 
Equation  (21)  can  be  rewritten  as  follows 


C  (p,  T)  =  C  (p,  296)  exp 

a  o 


(22) 


76,  Burch,  D.  E.  (1970)  Semiannual  Technical  Report:  Investigation  of  the 

Absorption  of  Infrared  Radiation  by  Atmospheric  Gases,  Aeronutronic 
Report" U-4784,  ASTLA  (Ad  702117). 
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The  second  term  in  Eq.  (19),  defined  as  C^j/Cg,  represents  the  ratio  of  the 
foreign  (nitrogen) -broadening  coefficient  to  the  self-broadening  coefficient. 

In  LOWTR.AN,  a  value  at  296  K  of  0.  002  for  the  parameter  Cj^/C'g  is  used, 
based  on  the  review  of  the  measurements.  It  is  assumed  that  Cjj/Cg  does  not 
vary  with  temperature  (since  no  supporting  measurements  are  available). 

The  transmittance  due  to  the  water  vapor  continuum  in  the  8-  to  14-pm  region 
is  calculated  for  a  horizontal  path  of  length  DS  (km)  at  altitude  z  using  the  follow¬ 
ing  expression  in  LOWTRAN 


t(v)  =  exp  [-  C  (v,  296)W(z)DS)  (23) 

_9 

where  W(z)  is  the  effective  H„0  absorber  amount  per  unit  path  lengh  (in  gm  cm 

-i  ^ 

atm  km  )  at  altitude  z,  and  Cg  (v,  296)  is  the  water  vapor  (self-broadened) 
attenuation  coefficient  obtained  from  laboratory  measurements  at  a  temperature 
of  296  K. 

The  quantity  W(z)  is  given  by 


W(z)  =  w(z) 


0 


ph2o  exp 


[6-08(#sr  0 


+  0.  002  <PT  -  P^) 


} 


(24) 


where 

w(z) 


P 

H2° 

PT 

T(z) 


_2 

=  gm  cm  /km  of  H20  in  the  path  at  temperature  T, 

=  H20  partial  pressure  (atm)  at  altitude  z, 

=  ambient  (total)  pressure  (atm)  at  altitude  z,  and 
=  ambient  temperature  at  altitude  z  (degrees  Kelvin). 


Note  that  the  temperature  dependence  of  the  attenuation  coefficient  Cg(r,  T)  given 
in  Eq.  (22)  has  been  incorporated  into  the  expression  for  W  in  Eq.  (24),  The 
reason  for  this  is  so  that  the  temperature  variation  over  a  given  atmospheric  siant 
path  is  weighted  equally  with  the  water  content  along  the  path. 

5,  5.  2  3.  5-  TO  4.  2 -pm  HgO  CONTINUUM 

7  7 

Using  the  laboratory  measurements  of  Burch  et  al,  '  an  empirical  expression 

was  obtained  for  the  temperature  dependence  of  the  attenuation  coefficients  in  the 

77 

3-  to  5 -pm  region.  The  measurements  reported  in  Burch  et  al  were  for  samples 
of  pure  water  vapur  made  at  elevated  temperatures,  and  have  been  confirmed 
independently  by  White  ct  al. 

77.  Burch,  D.  E. ,  Gryvnak,  D.A.,  and  Pembrook,  J.  D.  (1971)  Philoo  Ford  Corp. 

Aeronutronic  Report  U-4897,  ASTLA  (AD  882876). 

78.  White,  K.  O. ,  Watkins,  W.R.,  Tuer,  T.  W. ,  Smith,  F,  G. ,  and  Meredith,  R.  E. 

(1975)  J.  Opt.  Soc.  Amer.  65:1201. 
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It  was  found  that 


Cs(v,  T)  =  Cg(v,  296)  exp 


[«•« 


(25) 


provides  an  approximate  fit  to  the  measurements  for  pure  water  vapor  extrapolated 
to  a  temperature  of  296  K. 

The  attenuation  coefficients  at  296  K  used  in  LOWTRAN  for  the  3.4-  to  4.2-pm 

region  have  been  digitized  directly  from  the  extrapolations  reported  by  Burch 

77 

et  al,  and  are  shown  in  Figure  25b. 

From  the  limited  measurements  available,  it  appears  that  the  temperature 

dependence  of  the  water  vapor  continuum  (due  to  self  broadening)  in  the  3,  5-  to 

4.  2 -pm  region  is  not  as  strong  as  that  in  the  8-  to  14-pm  region. 

A  value  for  the  nitrogen-broadening  coefficient  of  0.  12  was  obtained  by  Burch 
77 

et  al  for  a  temperature  of  428  K.  Since  no  other  measurements  are  available 
at  the  time  of  writing,  this  value  will  be  used  in  LOWTRAN  with  the  same  temper¬ 
ature  correction  as  is  applied  to  the  self-broadening  term  (see  Eq.  (26)). 

As  for  the  8-  to  14-gm  region,  the  transmittance  for  a  horizontal  path  of 
length  DS  (km)  can  be  calculated  using  Eq.  (23),  where  the  parameter  W(z)  is  now 
given  by  the  following  expression  for  the  3,  5-  to  4.  2 -pm  region 


W(z)  =  w(z) 


\l20  +  °’  12  <PT  * 


ph2o> 


]  [4- 56  (Ira  - 1 ) 


(26) 


As  in  Eq.  (24),  the  temperature  dependence  of  the  attenuation  coefficient  has 
been  incorporated  into  Eq.  (26).  It  will  be  noted  that  the  nitrogen-broadening 
coefficient  in  the  4-pm  region  is  more  significant  relative  to  the  self-broadening 
term  than  in  the  10-pm  region.  Again  it  should  be  emphasized  that  the  above 
expressions  are  approximate  and  further  measurements  are  required  to  determine 
the  temperature  dependence  of  the  nitrogen-broadening  coefficient,  as  well  as  more 
accurate  values  for  the  wavelength  dependence  of  the  self-broadening  coefficient  at 
ambient  temperatures  (for  example,  296  K)  and  its  temperature  dependence. 


5.6  Aerosol  Transmittance 

Within  a  given  atmospheric  layer-  of  path  length,  DS,  in  km,  the  transmittance, 
T(y),  due  to  aerosol  extinction  is  given  by 

t(v)  =  EXP  [  -EXTV(r)  X  HAZE  X  DS]  (27) 


where  EXTV(r)  is  the  normalized  extinction  coefficient  for  the  wavenumber  v  of 
the  appropriate  aerosol  model  and  altitude.  HAZE  is  the  aerosol  scaling  factor 
(see  Section  3). 

61 


EXTV(v)  is  found  by  interpolation  of  the  values  stored  in  the  code  for  the  re¬ 
quired  wavenumber  and  relative  humidity.  HAZE  is  determined  by  interpolation 
of  the  appropriate  aerosol  scaling  factor  profiles  according  to  the  meteorological 
range  and  season. 


6.  ATMOSPHERIC  RADIANCE 

The  LOWTRAN  program  has  the  option  to  calculate  atmospheric  and  earth 
radiance,  A  numerical  evaluation  of  the  integral  form  of  the  equation  of  radiative 
transfer  is  used  in  the  program.  The  emission  from  aerosols  and  the  treatment 
of  aerosol  and  molecular  scattering  is  considered  only  in  the  zeroth  order,  Addi¬ 
tional  contributions  to  atmospheric  emission  from  radiation  scattered  one  or  more 
times  are  neglected.  Local  thermodynamic  equilibrium  is  assumed  in  the  atmos¬ 
phere. 

The  average  atmospheric  radiance  (over  a  20-cm  1  interval)  at  the  wavenum¬ 
ber,  v,  along  a  given  line-of-sight  in  terms  of  the  LOWTRAN  transmittance  param¬ 
eters  is  given  by 

1 

I(r)  =  f  d ra  B(r,  T)7g  +  B<i/,Tb)Tj  (28) 

-hb 

T 

a 


where  the  integral  represents  the  atmospheric  contribution  and  the  second  term  is 
the  contribution  of  the  boundary,  (for  example,  the  surface  of  the  earth  or  a  cloud 
top)  and 

~a  =  average  transmittance  due  to  absorption, 

rg  =  average  transmittance  one  to  scattering, 

Ti~T„T„  =  average  total  transmittance. 

=  average  total  transmittances  from  the  observer  to  boundary, 

B(j/,  T)  =  average  Planck  (blackbody)  function  corresponding  to  the  frequency 
v  and  the  temperature  T  of  an  atmospheric  layer. 

T^  =  temperature  of  the  boundary. 

The  emissivity  of  the  boundary  is  assumed  to  be  unity. 

The  LOWTRAN  band  model  approach  used  here  assumes  that  since  the  black- 
body  function  is  a  slowly  varying  function  of  frequency  we  can  represent  the  average 
value  of  the  radiance  in  terms  of  the  average  values  of  the  transmittance  and  the 
blackbody  function,  t^,  rg,  and  r ^  vary  from  1  to  rgj  and  along  the  observer's 
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line-of-sight.  For  lines  of  sight  which  do  not  intersect  the  earth  or  a  cloud  layer, 
the  second  term  in  Eq.  (28)  is  omitted. 

The  numerical  analogue  to  Eq.  (28)  has  been  incorporated  in  the  LOWTRAN 
computer  program.  The  numerical  integration  of  the  radiance  along  a  line-of- 
sight  for  a  given  model  atmosphere  defined  at  N  levels  is  given  by 


I(r) 


N-l 

E  {7a(i)  '  \{i  +  X»  B  (  * 
i=  1 


T(i)  +  T(i+1) 
2 


Tg(i)  +  Ts(i  +  1) 


+  B(r,  T^)  .  (29) 

Thus,  the  spectral  radiance  from  a  given  atmospheric  slant  path  (line-of-sight) 
can  be  calculated  by  dividing  the  atmosphere  into  a  series  of  isothermal  layers 
and  summing  the  radiance  contributions  from  each  of  the  layers  along  the  line-of- 
sight,  that  is,  numerically  evaluating  Eq.  (28).  This  can  be  clearly  seen  from  the 
following  simple  example. 

Neglecting  scattering,  consider  a  three-layered  atmosphere  characterized  by 
temperatures  T^,  T  and  Tg  as  shown  in  Figure  28.  Let  t^,  t^,  and  t, ^  be  the 
transmittances  from  the  ground  to  the  boundaries  of  each  of  the  layers  respectively 
(see  Figure  28a).  Figure  26b  shows  the  corresponding  case  for  an  observer  in 
space  (distinguished  by  primed  r'  values).  Then  from  Eq.  (29)  the  total  downward 
spectral  radiance  for  an  observer  on  the  ground  (looking  upwards)  is  given  by 

I(»)  I  ■  II  >  TjlBf*,  Tt)  +  (Tt  -  ?2)B(»,  T2)  +  (72  -  t3)B(i/,  T3)  .  (30) 

Similarly  for  an  observer  looking  down  from  the  top  of  the  atmosphere  (see  Figure 
26b),  the  total  upward  spectral  radiance  is  given  by 

I(i/)  t  =  (1  -  T!|)B(t/,  Tg)  +  (t'j  -  T^)  +  ('tg  -  Tg)B(i/,  T^)  +  B(i/,  T^)  . 

(31) 

A  comparison  of  Eqs.  (30)  and  (31)  shows  that  in  addition  to  the  boundary  con¬ 
tributions  to  the  total  upward  spectral  radiance,  the  total  downward  and  the  total 
upward  spectral  radiances  from  the  same  atmospheric  layers  are  not  the  same 
but  depend  on  the  position  of  the  observer  relative  to  a  given  atmospheric  slant 
path.  In  the  LOWTRAN  radiance  program,  the  position  of  the  observer  is  always 
defined  by  the  input  parameter,  III. 
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Figure  2(i.  Upward  and  Downward  Atmospheric  Paths  Through 
a  Three-Layered  Atmosphere  for  Radiance  Calculations 


It  should  be  emphasized  that  in  the  calculation  of  radiance  as  given  by  Eq.  (28), 

scattering  is  treated  only  as  a  loss  mechanism  and  is  not  included  as  a  source. 

79 

In  a  recent  paper  by  Ben-Shalom  et  al,  it  has  been  noted  that  for  certain 
atmospheric  paths  of  high  optical  depth  where  multiple -scattered  radiation  is 
significant,  the  algorithm  used  in  LOWTRAN  underestimates  the  background 
radiation.  The  authors  have  proposed  a  "conservative  scattering"  solution  for 
these  cases  where  only  the  total  extinction  is  used  for  the  radiative  transfer  cal¬ 
culations,  However,  no  assessment  of  the  validity  of  the  "conservative  scattering" 
method  proposed  vs  the  "zero  scattering"  algorithm  in  LOWTRAN  for  the  various 
paths  encountered  in  the  atmosphere  has  been  made. 

Until  a  general  multiple-scattering  solution  for  radiative  transfer  is  available 
in  the  code,  it  is  recommended  that  users  of  LOWTRAN  examine  the  scattering 
contribution  along  a  given  atmospheric  path.  For  scattering  in  the  linear  region, 
the  present  LOWTRAN  algorithm  should  be  appropriate.  For  high -scattering  con¬ 
ditions,  users  might  consider  modifying  the  radiance  algorithm  as  Ben-Shalom 

79  1 

et  al  have  proposed. 


7.  program  structure 

In  addition  to  the  inclusion  of  new  aerosol  models  and  new  aerosol  extinction 
coefficients  into  the  LOWTRAN  code,  extensive  reprograming  of  the  code  has  been 
made  for  improved  logical  flow  of  the  program  and  user  understanding.  As  shown 
in  Figure  27,  the  LOWTRAN  code  structure  consists  of  a  main  program,  LOW'EM, 
and  19  subroutines,  A  listing  of  the  code  is  given  in  Appendix  A.  The  data  file, 
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Figure  27.  LOWTRAN  Frogiam  Structure 


TAPE5,  used  in  previous  LOWTRAN  codes  has  been  eliminated.  The  information 
from  this  file  has  been  incorporated  into  the  code  in  data  statements. 

In  the  main  program.  LOWEM,  four  control  cards  are  read  in  for  standard 
execution  of  the  code.  New  aerosol  control  parameters  have  been  added  to  these 
cards,  as  will  be  explained  iri  the  instructions  for  using  the  code  in  Section  8. 

The  transmittance  and  radiance  output  tables  are  also  written  to  the  mass  stor¬ 
age  file,  TAPE7,  declared  on  the  PROGRAM  LOWEM  card.  The  subroutines, 
MDTA,  NSMDL,  HPROF,  GnO,  EXABIN,  PATH,  and  TRANS  are  called  from  the 
main  program.  A  definition  of  symbols  in  PROGRAM  LOWEM  is  given  in  Appen¬ 
dix  B. 

Subroutine  MDTA,  called  from  the  main  program,  contains  the  altitudes, 
pressure,  temperature,  water  vapor  and  ozone  density  profiles  of  the  six  model 
atmospheres.  The  nitric  acid  volume  mixing  ratio  profile  is  also  stored  in  the 
subroutine. 

Subroutine  NSMDL  is  called  from  the  main  program  for  user  defined  model 
atmospheres  or  aerosol  models  (MODEL  =  0  or  MODEL  =  7).  The  input  cards  and 
options  for  the  user  defined  models  are  explained  in  Section  8.  Subroutine  AERPRF 
is  called  from  this  subroutine. 
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Subroutine  HPHOF,  called  from  the  main  program,  sets  up  the  appropriate 
HORIZONTAL  PROFILES  of  molecular  and  aerosol-absorber  densities  in 
LOWTRAN  units,  using  either  the  model  data  from  MDTA  or  the  user-defined 
model  data  from  NSMDL.  Subroutine  AERPRF  is  also  called  from  this  subroutine. 

Subroutine  AERPRF,  called  from  either  NSMDL  or  HPROF,  sets  up  the 
appropriate  aerosol  HORIZONTAL  PROFILES  for  the  model  selected.  Subroutine 
PRFDTA,  called  from  AERPRF,  contains  the  altitude-dependent  profiles  of  the 
aerosol  models  allowed  by  the  program,  stored  in  data  statements. 

Subroutine  GEO,  called  from  the  main  program,  is  the  spherical  geometry 
subroutine,  with  correction  for  refraction,  used  to  calculate  the  absorber 
amounts  along  the  atmospheric  slant  path.  The  VERTICAL  PROFILES  and  the 
equivalent  absorber  amounts  are  determined  in  this  subroutine.  The  matrix, 
WLAY,  is  also  defined  in  this  subroutine  for  use  with  subroutine  PATH,  for  radi¬ 
ance  calculations.  Subroutine  ANGL  and  POINT  are  called  from  this  subroutine. 

Subroutine  ANGL  is  called  from  GEO  to  calculate  the  initial  zenith  angle  for 
the  atmospheric  slant  path,  when  the  initial  and  final  altitudes  and  the  earth  center 
angle  are  specified.  Subroutine  POINT  is  also  called  from  ANGL. 

Subroutine  POINT,  called  from  GEO  and  ANGL,  is  used  to  compute  the  mean 
refractive  index  above  and  below  a  given  altitude  and  to  interpolate  exponentially 
the  equivalent  absorber  densities  at  that  altitude. 

Subroutine  EXABIN  is  called  from  the  main  program  to  load  the  extinction 
and  absorption  coefficients  for  the  four  aerosol  altitude  regions  appropriate  to  the 
aerosol  model  selected  by  the  user.  Interpolation  of  the  boundary  layer  aerosol 
coefficients  based  on  relative  humidity  is  performed  in  this  subroutine.  Subroutine 
EXTDTA  is  called  from-  EXABIN. 

The  aerosol  extinction  and  absorption  coefficients  and  wavelengths  of  all  the 
aerosol  models  are  stored  in  subroutine  EXTDTA,  called  from  EXABIN. 

Subr  outine  PATH,  called  from  the  main  program  for  radiance  calculations, 
loads  the  cumulative  absorber  amounts  along  the  atmospheric  slant  path  into  the 
matrix,  WPATH.  This  data  is  transferred  to  PATH  from  GEO  through  the  vertical 
profile  matrix,  WLAY. 

Subroutine  TRANS,  called  from  the  main  program,  calculates  the  transmit¬ 
tance  and  radiance  between  the  wavenumbers,  VI  and  V2,  in  steps  of  DV  for  the 
atmospheric  slant  path.  Subroutines  TRFN,  AEREXT,  HN03,  C1DTA,  C2DTA, 
C3DTA,  and  C4DTA  are  called  by  TRANS. 

The  LOWTRAN  transmittance  functions  for  water  vapor,  ozone,  and  the  uni¬ 
formly  mixed  gases  are  stored  in  data  statements  in  subroutine  TRFN. 

Subroutine  AEREXT  interpolates  the  aerosol  extinction  coefficients  for  the 
four  altitude  regions  to  obtain  the  proper  values  at  the  wavenumber,  r. 

Subroutine  HN03  determines  the  nitric,  acid  absorption  coefficient  at  the  wave- 
number,  v,  from  the  arrays  stored  in  the  subroutine. 


The  molecular  water  vapor  absorption  coefficient  is  determined  at  a  specified 
wavenumber  from  the  array.  Cl,  stored  in  subroutine  C1DTA, 

The  absorption  coefficient  for  the  uniformly  mixed  gases  at  a  specified  wave¬ 
number  is  determined  from  the  array,  C 2,  stored  in  subroutine  C2DTA. 

The  infrared  absorption  coefficient  for  ozone  at  the  wavenumber,  v,  is  ob¬ 
tained  from  the  array,  C3,  stored  in  subroutine  C3DTA. 

Subroutine  C4DTA,  called  from  TRANS,  contains  data  arrays  for  the  nitrogen 
continuum  absorption  (C4),  the  4 -pm  water  vapor  continuum  absorption  (C5),  and 
the  ozone  ultra-violet  and  visible  absorption  (C 8). 

With  the  new  code  struclured  into  subroutines,  the  program  has  been  run  on 
the  AFGL  CDCG600,  using  segment  loading  of  computer  code  to  reduce  central 
memory  storage  requirements.  A  load  map  using  the  segment  option  is  shown  in 
Appendix  C. 

With  segment  loading  of  the  code,  the  core  storage  requirements  for  execution 
are  reduced  by  approximately  a  factor  of  two  over  conventional  loading  of  the  pro¬ 
gram,  Similar  type  segment  loading  of  the  LOWTRAN  code  would  allow  possible 
use  of  the  code  on  minicomputers. 


8.  INSTRUCTIONS  FOR  USING  LOWTRAN  5 

The  instructions  for  using  LOWTRAN  5  are  similar  to  those  for  previous 
LOWTRAN  codes.  New  control  parameters  defining  the  aerosol  profiles  and 
extinction  coefficients  have  been  added  to  the  first  input  card.  Changes  have  also 
been  made  in  the  input  of  aerosol  models  in  user-defined  atmospheres  (MODEL  =  7). 
As  mentioned  previously,  the  data  file,  TAPE  5,  has  been  eliminated  and  made 
part  of  the  Fortran  code. 

In  general,  for  standard  atmospheric  models,  only  four  input  cards  are  re¬ 
quired  to  run  the  program  for  a  given  problem.  The  formats  for  these  four  cards 
and  definitions  of  the  input  parameters  on  these  cards  are  given  below. 

8.1  Input  Data  and  Formats 

The  data  necessary  to  specify  a  given  problem  are  given  on  the  four  cards  as 
follows: 

CARD  1  MODEL,  IHAZE,  ITYPE,  LEN,  ,TP,  IM,  Ml,  M2,  M3,  ML, 

IEMISS,  HO,  TBOUND,  ISEASN,  IVULCN,  VIS 

FORMAT  (1113,  2F10.  3,  213,  F10.  3) 
CARD  2  HI,  H2,  ANGLE,  RANGE,  BETA 

FORMAT  (5F10.3) 
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CARD  3  VI,  V2,  DV  FORMAT  (3F10. 3) 

CARD  4  IXY  FORMAT  (13) 

Definitions  of  the  above  quantities  will  be  discussed  in  Section  8,2. 

If  the  quantity  MODEL  given  in  CARD  1  is  set  equal  to  0  or  7  (which  is  the 
case  if  meteorological  data  are  used  as  input  to  the  program),  then  the  above  card 
sequence  (and  format  for  CARD  2)  is  changed.  These  cases  will  be  described  in 
Section  8.3, 

8.2  Basic  Instructions 

The  various  quantities  to  be  specified  on  each  of  the  four  control  cards  (sum¬ 
marized  in  Section  8.  1)  will  be  discussed  in  this  section. 

8.2.1  CARD  1 -MODEL,  IHAZE,  1TYPE,  L.EN,  JP,  IM,  Ml,  M2,  M3, 

ML,  IEM1SS,  RO,  TBOUND,  ISEASN,  IVULCN,  VIS 

The  parameter  MODEL  selects  one  of  six  geographical  model  atmospheres  or 
specifies  that  user-defined  meteorological  data  are  to  be  useu  in  place  of  the 
standard  models,  ITYPE  and  LEN  determine  one  of  three  types  of  atmospheric 
paths  for  a  given  problem.  JP  is  a  user  option  to  suppress  printing  of  profiles 
and  tables  in  the  output.  1EMISS  selects  the  mode  of  program  execution  (trans¬ 
mittance  or  radiance).  IM,  Ml,  M2,  M3,  )V1L,  HO,  and  TBOUND  are  additional 
input  parameters  for  non-standard  cases.  IHAZE,  ISEASN,  IVULCN,  and  VIS 
are  control  parameters  used  to  select  the  profiles  and  types  of  extinction  coeffi¬ 
cients  for  the  aerosol  models  (N.  B,  VIS  is  now  specified  on  CARD1). 

MODEL  =  0  if  meteorological  data  arc  specified  (for  horizontal  paths  only)*, 

=  1  selects  TROPICAL  MODEL  ATMOSPHERE. 

=  2  selects  MIDLATITUDE  SUMMER. 

=  3  selects  MIDLATITUDE  WINTER. 

=  4  selects  SUBARCTIC  SLIMMER. 

=  5  selects  SUBARCTIC  WINTER. 

=  6  selects  1962  U.  S.  STANDA  RD 

=  7  if  a  new  model  atmosphere  (or  radiosonde  data)  is  to  be  inserted. 

ITYPE  =  1  for  a  horizontal  (constant-pressure)  path. 

=  2  for  a  vertical  or  slant  path  between  two  altitudes. 

=  3  for  a  vertical  or  slant  path  to  space. 

The  TYPE  1  path  should  not  be  confused  with  a  long  90°  path  where  the  local 
height  of  the  end  of  the  trajectory  is  at  a  significantly  different  height.  In  such  a 
case,  specify  the  path  according  to  ITYPE  =  2. 

* 

In  these  cases  the  format  for  Card  2  changes  (see  non-standard  conditions, 
Section  8.3). 
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LEN  =  0  for  normal  operation  of  program. 

=  1  selects  the  downward  TYPE  2  LONG  path. 

The  parameter  LEN  can  be  ignored  (that  is,  left  blank)  for  the  majority  of  cases, 

It  need  only  be  used  for  a  downward-looking  path  (H2  <  HI)  when  two  paths  are 
possible  for  the  same  input  parameters.  In  such  a  case,  a  computer  printovit 
statement  will  be  given  indicating  that  the  user  has  two  choices  for  the  problem 
and  that  the  shorter  path  has  been  executed.  Set  LEN  =  1  for  the  longer  case. 

JP  =  0  for  normal  operation  of  program. 

=  1  to  suppress  printing  of  transmittance  table  /or  radiance  table  and 
horizontal  and  vertical  profiles. 

The  control  parameter,  IEMISS,  determines  the  mode  of  execution  of  the  program. 
IEMISS  =  0  for  program  execution  in  transmittance  mode. 

=  1  for  program  execution  in  radiance  mode. 

A  message  is  printed  to  the  user  on  the  output  file  indicating  the  mode  of  program 
execution. 

Table  2A  summarizes  the  use  of  these  five  control  parameters  specified  on 
CARD1,  For  non-standard  cases,  provision  is  made  on  CARD1  for  additional 
user  options  with  the  parameters  1M,  Ml,  M2,  M3,  ML,  RO,  and  TBOTJND. 

IM  =  0  for  normal  operation  of  program  or  when  subsequent  calculations  are 
to  be  run  w  ith  MODEL.  =  7. 

-  1  when  radiosonde  data  are  to  be  read  in  initially. 

ML  =  Number  of  levels  to  be  read  in  for  MODEL.  -  7. 

Note  that  IM  and  ML  are  only  used  when  MODEL  =  7  and  then  only  on 
the  lirst  calculations  when  the  data  are  road  in. 

Ml  =  M2  -  M3  -  0  for  normal  operation  of  program. 

The  parameters  Ml,  M2,  and  M3  can  each  take  integer  values  between  0  and  6 
and  are  used  to  modify  or  supplement  the  altitude  profiles  of  temperature  and 
pressure,  water  vapor,  and  ozone  respectively,  for  any  given  atmospheric  mode.' 
specified  by  MODEL. 

For  example: 

Ml  =  1  selects  the  TROPICAL  temperature  and  pressure  altitude  profiles. 

=  2  selects  the  M1DL.ATITUDE  SUMMER  temperature  and  pressure 
altitude  profiles. 

=  6  selects  the  1962  U.S.  STANDARD  temperature  and  pressure  altitude 
profiles. 

M2  =  1  selects  the  TROPICAL  water  vapor  altitude  profile, 

=  2  selects  the  MIDL.A'I'ITUDE  SUMMER  water  vapor  altitude  profile, 

=  6  selects  the  1962  TJ .  S .  STANDARD  water  vapor  altitude  profile. 
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Table  2a.  LOWTRAN  CARD  1  Input  Parameters:  MODEL,  ITYPE,  LEN, 
JP,  REMISS 


CARD  1 


MODEL,  I HAZE-  ITYPE-  LEN,  JP,  IM,  Ml,  M2,  M3,  ML, 
1EMISS,  R0-  TBOUND,  1SEASN,  IVULCN,  VIS 
FORMAT  (1113,  2F10.3,  213,  F10.3) 


m 

m 

ITYPE 

m 

LEN 

cot. 

15 

JP 

COL 

33 

IEMISS 

0 

i 

HORIZONTAL 

PATH 

SHORT 

PATH 

D 

NORMAL 

OUTPUT 

0 

TRANS¬ 

MITTANCE 

.1 

TROPICAL 

2 

SLANT  PATH 

HI  TO  H2 

i 

LONG 

PATH 

1 

SHORT 

OUTPUT 

1 

RADIANCE 

2 

MIDLATITUDE 

SUMTER 

3 

SLANT  PATH 

HI  TO  SPACE 

3 

MIDLATITUDE 

WINTER 

4 

SUBARCTIC 

SUMMER 

a 

SUBARCTIC 

WINTER 

6 

1962  U.3. 
STANDARD 

7 

mumm 

OPTIONS  FOR  NON-STANDARD  MODELS 


IM,  Ml,  M2-  M3,  ft,  RO.  TBOUND  LEFT  BLANK  TOR  STANDARD  CASES 
REFER  TO  1LXT  FOR  NON-STANDARD  CASES - 


M3  =  1  selects  the  TROPICAL  ozone  altitude  profile. 

=  2  selects  the  MIDLATITUDE  SUMMER  ozone  altitude  profile, 

=  fi  selects  the  1902  U.  S.  STANDARD  ozone  altitude  profile. 

RO  -  radius  of  the  earth  (km)  at  the  particular  geographical  location  at  which 
the  calculation  is  to  be  performed. 

If  RO  is  left  blank,  the  program  will  use  the  rmdlatitude  value  of  6371.  23  km  if 
MODEL  is  set  equal  to  0  or  7.  Otherwise  the  earth  radius  for  the  appropriate 
standard  model  atmosphere  (specified  by  MODEL)  will  be  used. 

TBOUND  =  temperature  of  the  earth  (°K)  at  the  location  at  which  the  calcula¬ 
tion  is  to  be  performed. 

TBOUND  is  only  used  in  the  radiance  mode  of  the  program  for  slant  paths  which 
intersect  the  earth.  If  TBOUND  is  left  blank,  the  program  will  use  the  temperature 
of  the  first  atmospheric  layer  as  the  boundary  temperature. 
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IHAZE,  ISEASN,  IVULCN,  and  VIS  select  the  altitude-  and  seasonal-depen¬ 
dent  aerosol  profiles  and  aerosol  extinction  coefficients.  IHAZE  specifies  a 
horizontal  meteorological  range  and  specifies  the  type  of  extinction  for  the 
boundary-layer  aerosols  (0  to  2  km).  The  relative  humidity  dependence  of  the 
boundary -layer  aerosol  extinction  coefficients  is  based  on  the  water  vapor  content 
of  the  model  atmosphere  selected  by  MODEL.  ISEASN  selects  the  seasonal  de¬ 
pendence  of  the  profiles  for  both  the  tropospheric  (2  to  10  km)  and  stratospheric 
(10  to  30  km)  aerosols.  IVULCN  is  used  to  select  both  the  profile  and  extinction 
type  for  the  stratospheric  aerosols  and  to  determine  transition  profiles  above  the 
stratosphere  to  100  km.  VIS,  the  meteorological  range,  when  specified,  will 
supersede  the  default  meteorological  range  in  the  boundary-layer  aerosol  profile 
set  by  IHAZE. 

IHAZE  =  0  no  aerosol  attenuation  included  in  the  calculation. 

=  1  RURAL  extinction,  23 -km  VIS. 

=  2  RURAL  extinction,  5-km  VIS. 

=  3  MARITIME  extinction,  23 -km  VIS. 

=  4  MARITIME  extinction,  5-km  VIS. 

=  5  URBAN  extinction,  5 -Ian  VIS, 

=  6  TROPOSPHERIC  extinction,  50-km  VIS. 

=  7  USER -DEFINED  extinction,  23-km  VIS.  (Read  into  the  program 
immediately  after  CARD1.  Refer  to  the  main  program  LOWEM 
in  Appendix  A  for  the  input  format  of  the  coefficients). 

=  ti  KOG1  (Advection  Fog)  extinction,  0.  2-km  VIS. 

=  9  l?OG2  (Radiation  Fog)  extinction,  0,  5-km  VIS. 

As  noted  above,  IHAZE  selects  the  type  of  extinction  and  a  default  meteorolog¬ 
ical  range  for  the  boundary-layer  aerosol  models  only.  If  VIS  is  also  specified  on 
CARD1  it  will  override  the  default  IHAZE  value.  Interpolation  of  the  extinction 
coefficients  based  on  relative  humidity  is  performed  only  for  the  RURAL,  MARI¬ 
TIME,  URBAN,  and  TROPOSPHERIC  coefficients  used  in  the  boundary  layer 
(0  to  2 -km  altitude). 

JSEASN  =  0  season  determined  by  the  value  of  MODEL; 

SPRING-SUMMER  for  MODEL  -  0,  1,  2,  4,  6,  7 
FALL-WINTER  for  MODEL  =  3,  5 
=  1  SPRING-SUMMER 
=  2  FALL-WINTER 

ISEASN  selects  the  appropriate  seasonal  aerosol  profile  for  both  the  tropo¬ 
spheric  and  stratospheric  aerosols.  Only  the  tropospheric  aerosol  extinction 
coefficients  are  used  with  the  2-  to  10-km  profiles. 
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IVULCN  =  0,  1  BACKGROUND  STRATOSPHERIC  profile  and  extinction 
=  2  MODERATE  VOLCANIC  profile  and 
AGED  VOLCANIC  extinction 
=  3  HIGH  VOLCANIC  profile  and 
FRESH  VOLCANIC  extinction 
=  4  HIGH  VOLCANIC  profile  And 
AGED  VOLCANIC  extinction 
=  5  MODERATE  VOLCANIC  profile  and 
FRESH  VOLCANIC  extinction 

The  parameter  IVULCN  controls  both  the  selection  of  the  aerosol  profile  as 
well  as  the  type  of  extinction  for  the  stratospheric  aerosols.  It  also  selects 
appropriate  transition  profiles  above  the  stratosphere  to  100  km.  Meteoric  dust 
extinction  coefficients  are  always  used  for  altitudes  from  30  to  100  km. 

VIS  =  meteorological  range  (km)  (when  specified,  supersedes  default  value 
set  by  IHAZE) 

Table  2B  summarizes  the  use  of  aerosol  control  parameters  on  CARD  1. 


Table  2b.  LOWTRAN  CARD  1  Input  Parameters:  IHAZE,  ISEASN, 
IVULCN,  VIS 


CARD  1 

MODEL.  IHAZE,  I TYPE.  LF.N,  JP.  1M,  Ml.  M2.  M3.  ML. 

1EMIS3,  RO.  TBOUND,  ISEASN.  IVULCN,  VIS 

FORMAT  (1113,  2F10.3.  213,  F10.3) 

IHAZE 

ISEASN 

1VUL 

COL 

6 

VIS" 

(KM) 

EXTINCTION 

COL 

SEASON 

COL 

59 

SEASON 

PROFILE 

_ 

EXTINCTION 

PR0I1LE/ 

EXTINCTION 

0 

/  ..... 

10  AEROSOLS 

.  -> 

I 

23 

RURAL 

0 

SET  BY 
MODEL 

SET  BY 
MODEL 

METEORIC 

DUST 

EXTINCTION 

2 

5 

1 

SPRING- 

SUMMER 

SPRING- 

SUMMER 

3 

23 

MARITIME 

2 

FALL- 

WINTER 

FALL- 

WINTER 

A 

5 

TROPOSPHERIC 

PROFILE/ 

TROPOSPHERIC 

EXTINCTION 

0 

BACKGROUND 

STRATO¬ 

SPHERIC 

BACKGROUND 

STRATO¬ 

SPHERIC 

NORMAL 

ATMOSPHERIC 

PROFILE 

5 

b 

URBAN 

1 

& 

50 

TROPOSPHERIC 

2 

MODERATE 

VOLCANIC 

AGED 

VOLCANIC 

TRANSITION 

PROFILES 

-VXCANIC 

TO  NORMAL 

/ 

23 

USER  DEPINEU 

3 

HIGH 

VOLCANIC 

FRESH 

VXCANJC 

8 

0.2 

FOG  1 

4 

HIGH 

VOLCANIC 

AGED 

VOLCANIC 

9 

0.5 

FOG  2 

5 

MODERATE 

VOLCANIC 

FRESH 

VXCANIC 

.  n  to  % 

fHWmlllP 

L-  .10  TO 

7  KM 

MhBH 

30  KM  '  ' 

*  VIS>0.  OVERRIDES  DEFAULT  MET.  RANGE 
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In  the  case  where  MODEL  =  7,  the  new  atmosphere  (model  or  radiosonde 
data)  is  inserted  between  CARDS  1  and  2  (see  Section  8.  3). 

8.2.2  CARD  2 -HI,  H2,  ANGLE,  RANGE,  BETA 

CARD  2  is  used  to  define  the  geometrical  path  parameters  for  a  given  problem. 

HI  =  initial  altitude  (km) 

H2  =  final  altitude  (km) 

It  is  important  to  emphasize  here  that  in  the  radiance  mode  of  program  execution 
(IEMISS=1),  HI,  the  initial  altitude,  always  defines  the  position  of  the  observer 
(or  sensor).  HI  and  H2  cannot  be  used  interchangeably  as  in  the  transmittance 
mode, 

ANGLE  =  initial  zenith  angle  (degrees)  as  measured  from  HI 

RANGE  =  path  length  (km) 

BETA  =  earth  center  angle  subtended  by  HI  and  H2  (degrees) 

It  is  not  necessary  to  specify  every  quantity  given  above;  only  those  that  ade¬ 
quately  describe  the  problem  according  to  the  parameter  ITYPE  (as  described 
below) 

(1)  Horizontal  Paths  (ITYPE  =  1) 

(a)  specify  HI,  RANGE 

(b)  If  non-standard  meteorological  data  are  to  be  used,  that  is,  if 
MODEL  -  0  on  CARD  1,  then  refer  to  Section  8.  3  for  parameters  and  format  of 
CARD  2. 

(2)  Slant  Paths  to  Space  (ITYPE  =  3) 

(a)  specify  HI,  ANGLE 

(b)  specify  HI,  HMIN  (for  limb-viewing  problem  where  HMIN  is  the 
required  tangent  height  or  minimum  altitude  of  the  path  trajectory. 

(3)  Slant  Paths  Between  Two  Altitudes  (ITYPE  =  2) 

(a)  specify  HI,  H2,  ANGLE 

(b)  specify  HI,  ANGLE,  RANGE 

(c)  specify  HI,  H2,  RANGE 

For  cases  (b)  and  (c),  the  program  will  calculate  H2  and  ANGLE  respectively, 
assuming  no  refraction;  then  proceed  as  for  case  (a).  This  method  of  defining  the 
problem  should  be  used  when  refraction  effects  are  not  important;  for  example, 
for  ranges  of  a  few  tens  of  km  at  zenith  angles  less  than  80°.  It  can  also  be  used 
for  larger  angles  (including  90°)  provided  that  the  path  lies  within  one  atmospheric 
layer. 

(d)  specify  HI,  H2,  BETA.  Leave  ANGLE  and  RANGE  blank  in  this  case. 
This  method  c.an  be  used  when  the  geometrical  configuration  of  the  source  and 
receiver  is  known  accurately,  but  the  initial  zenith  angle  is  not  known  precisely 
due  to  atmospheric  refraction  effects.  Beta  is  most  frequently  determined  by  the 
user  from  ground  range  information. 


73 


In  the  cases  of  2(b)  and  3(d)  above,  the  subroutine  ANGLE  is  called  in  the 
program  to  determine  the  appropriate  input  zenith  angle  by  an  iterative  technique 
taking  into  account  atmospheric  refraction. 

In  the  case  where  MODEL  -  7,  the  new  model  atmosphere  (or  radiosonde  data) 
is  inserted  between  CARDS  1  and  2. 

Table  3  lists  the  options  on  CARD  2  provided  to  the  user  for  the  different  types 
of  atmospheric  paths. 


Table  3.  LOWTRAN  CARD  2  Input  Parameters:  HI,  H2,  ANGLE, 
RANGE,  BETA 


CARD  2 

HI,  H2-  ANGLE-  RANGE,  ETA 

FORMAT  (5F10.3) 

Hi  (KM) 

H2  (KM) 

ANGLE  (°> 

RANGE  (KM) 

BETA  <°j 

I  TYPE 

1 

X 

X 

2 

\/ 

A 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

3 

X 

X 

X 

X 

(HMIiM) 

X  -  PARAMETER  MUST  BE  DEFINED 

H.  2.  3  CARD  3 -VI,  V2,  DV 

The  spectral  range  over  which  transmittance  data  are  required  and  the  spec¬ 
tral  increments  at  which  the  data  are  to  be  printed  out  is  determined  by  CARD  3. 

_  i 

VI  =  initial  frequency  in  wavenumbers  (cm  ) 

V2  -  final  frequency  in  wavenumbers  (cm  ^)  where  V2  >  VI 
DV  =  frequency  increment  (or  step  size)  (cm  *) 
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(Note  that  v  =  10^ /X  where  v  is  the  frequency  in  cm  *  and  X  is  the  wavelength  in 
microns,  and  that  DV  can  only  take  values  which  are  a  multiple  of  5. ) 

8.  2. 4  CARD  4  —  IXY 

The  control  parameter  IXY  can  cause  the  program  to  recycle,  so  that  a  series 
of  problems  can  be  run  with  one  submission  of  LOWTRAN.  Five  values  of  IXY  can 
be  used  to  provide  the  options  given  on  the  following  pages, 

IXY  =  0  or  blank  card  to  end  of  program 

=  1  to  select  a  new  CARD  3  and  CARD  4  only  (assuming  other  parameters 
are  unchanged) 

=  2  to  select  a  new  data  sequence  (CARDS  1,  2,  3,  and  4) 

=  3  to  select  a  new  CARD  2  and  CARD  4  only  (assuming  other 
parameters  are  unchanged) 

=  4  to  select  a  new  CARD  1  and  CARD  4  only  (assuming  other 
parameters  are  unchanged) 

Thus,  if  for  the  same  model  atmosphere  and  type  of  atmospheric  path  the 
reader  wishes  to  make  further  transmittance  calculations  in  different  spectral 
intervals  VI'  to  V2'  etc.  and  for  a  different  step  size  (DV1  etc.),  then  IXY  is  set 
equal  to  1.  In  this  case,  the  card  sequence  is  as  follows  and  can  be  repeated  as 
many  times  as  required. 

CARD  4  IXY  =  1 

CARD  5  VI1  V2'  DV' 

CARD  6  IXY  =  1 

CARD  7  VI"  V2"  DV" 

CARD  8  IXY  =  0 

The  Final  IXY  card  should  always  be  a  blank  or  zero.  When  using  the  IXY  =  1 
option,  the  wavelength  dependence  of  the  refractive  index  is  not  changed  (use 
IXY  =  2  option  if  th is  is  required). 

To  make  successive  transmittance  computations  where  just  the  geographical 
model  atmosphere  is  changed  and/or  with  or  without  aerosol  attenuation,  set 
IXY  =  4  and  construct  a  data  card  sequence  along  the  same  lines  as  given  above. 
This  sequence  of  recycling  can  be  repealed  successively. 

When  a  series  of  problems  is  to  be  executed  (with  one  submission  of 
LOWTRAN)  involving  the  standard  atmospheric  models  (MODEL  =  1  to  6)  as  well 
as  cases  involving  MODEL  =  0  and  MODEL  =  7,  then  the  order  in  which  the  data 
are  set  up  becomes  very  important.  Note  the  following  sequence. 

1.  Run  all  problems  using  MODEL  =  1  through  G  first. 

2.  Secondly,  run  all  problems  involving  the  use  of  MODEL  =  0. 

3.  Run  all  problems  involving  the  use  of  MODEL  =  7  last.  The  reason  for 
running  MODEL  =  7  cases  last  is  that  when  a  new  atmospheric  model  is  read  in, 


the  altitudes  may  not  correspond  with  those  given  in  the  standard  models  and  the 
program  will  erase  them.  Similarly,  if  a  MODEL  =  0  case  is  run  following  a 
MODEL  =  7  case,  the  first  level  of  MODEL  7  is  erased. 

Table  4  summarizes  the  user -control  parameters  on  CARD  3  and  CARD  4. 

Table  4.  LOWTRAN  CARD  3  and  CARD  4  Input  Parameters:  VI,  V2,  DV,  KY 


CARD  3 

VI,  V2.  DV 

FORMAT  (3F10.3) 

VI  (CM-1)  V2  (CM-1)  DV  (CM-1)  MULTIPLE  OF^fcM-l 

1 

1XY 

FORMAT  (13) 

a 

]XY 

0 

END  OF  PROGRAM. 

1 

READ  NEW  CARDS  3  AND  4. 

2 

| 

3 

READ  NEW  CARDS  2  AND  4. 

A 

READ  NEW  C.ARDS  1  AND  4, 

8.3  Non-Standard  Conditions 

Three  options  are  available  if  atmospheric  transmittance  calculations  are 
required  for  non-standard  conditions.  Here  non  standard  refers  to  conditions 
other  than  those  specified  by  the  six  model  atmospheres  provided  by  LOWTRAN, 
which  are  selected  by  the  parameter  MODEL  on  CARD  1,  The  three  options 
enable  the  user  to  insert: 

(1)  His  own  model  atmosphere(s)  in  place  of  any  (or  all)  of  the  six  standard 
models,  provided  that  the  data  are  in  exactly  the  same  format  and  are  specified  at 
the  same  altitudes  as  in  the  DATA  statements  in  the  LOWTRAN  code  (Subroutine 
MDTA).  In  this  case  the  appropriate  print  statements  in  LOWTRAN  (that  identify 
the  atmospheric  model  used)  must  be  changed  correspondingly. 


(2)  An  additional  atmospheric  model  (MODEL  7),  which  can  be  in  the  form  of 
radiosonde  data.  The  data  need  not  be  specified  at  the  same  altitudes  as  in  the 
standard  models. 

(3)  Meteorological  conditions  for  a  given  horizontal  path  calculation  (MODEL 
=  0  case). 

The  first  of  these  options  requires  the  most  effort  and  needs  no  further  dis¬ 
cussion  here,  other  than  a  reference  to  Appendix  A  for  a  summary  of  the  standard 
model  atmosphere  parameters,  units,  and  formats. 

8.  3.  1  ADDITIONAL  ATMOSPHERIC  MODEL  (MODEL  =  7) 

New  model  atmospheres  can  be  inserted  between  CARDS  1  and  2  provided  the 
parameters  MODEL  and  IM  are  set  equal  to  7  and  1  respectively  on  CARD  1,  The 
number  of  atmospheric  levels  to  be  inserted  (ML)  must  also  be  specified  on 
CARD  1.  New  altitude-dependent  aerosol  control  options  have  been  added  to  the 
MODEL  =  7  cards  to  provide  more  flexibility  to  the  user  in  modeling  aerosol 
extinction. 

The  appropriate  meteorological  parameters  and  format  for  the  atmospheric 
data  are  given  below 

Z,  b  1-  55'  RH.  WH,  WO,  AKAZE,  VIS1,  IHA1,  ISEA 1,  IVUL1 
FORMAT  (3P10.  3,  2F5.  1,  3E10. 3,  F7.3,  311) 

Z  =  altitude  (km) 

P  =  pressure  (mb) 

T  =  ambient  temperature  (°C) 

DP  -  dew-point  temperature  (°C) 

RII  =  relative  humidity  (%) 

_3 

WII  =  water  vapor  density  (gm  m  ) 

_3 

WO  -  ozone  density  (gm  m  ) 

AHAZE  >  aerosol  number  density  (normalized  by  the  user  to  the  required 

meteorological  range  using  the  LOWTRAN  extinction  coefficients) 
VIS1  =  meteorological  range  (km)  for  the  altitude,  Z 

J.HA1  =  aerosol  extinction  and  meteorological  range  control  for  the  altitude, 
Z 

ISEA1  =  aerosol  season  control  for  the  altitude,  Z 
IVUL1  =  aerosol  profile  and  extinction  control  for  the  altitude,  Z 
Note  that  it  is  only  necessary  to  specify  those  quantities  underlined  with  a  full  line 
and  one  of  the  quantities  underlined  with  the  dashed  line. 

If  the  ozone  density  (WO)  is  not  known  then  a  value  can  be  obtained  from  one 
of  the  standard  atmospheric  models  (for  the  appropriate  Latitude  and  season)  by 
using  the  parameter  M3  on  CARD  1. 
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-Also  note  that  for  Ml  >  0  on  CARD  1,  both  pressure  and  temperature  are  now 
interpolated  from  the  model  atmosphere  (MODEL=Ml)  for  the  altitude  Z. 

For  the  modeling  of  the  aerosol  profiles  and  extinction  coefficients,  if  AHAZE, 
VLSI,  ISEA1  and  IVUL1  are  left  blank  on  the  MODEL  7  input  card,  then  the  aerosol 
control  parameters,  IHAZE,  ISEASN,  IVULCN  and  VIS  on  CARD  1  will  control 
the  modeling  of  the  altitude -dependent  aerosol  parameters  as  described  in  Section 
8.  2.  LOWTRAN  will  rise  the  aerosol  models  contained  in  the  program  and  inter¬ 
polate  the  profiles  to  the  same  altitudes  as  the  radiosonde  (or  new  model  atmos¬ 
phere)  data. 

The  additional  aerosol  options  on  the  MODEL  7  card  have  been  added  primarily 
to  provide  more  user  flexibility  in  modeling  altitude -dependent  aerosols  such  as 
low  ground  fogs  where  finer  altitude  resolution  is  required  to  specify  the  aerosol 
profile.  These  options  are  categorized  as  follows: 

(a)  AI1AZE  >  0,  VIS1  =  IHA1  -  ISEA 1  =  IVUL1  =  0 

For  this  case,  the  program  will  use  the  value  of  AHAZE  at  the  altitude,  Z, 
to  define  the  aerosol  profile.  The  parameters  on  CARD  1  will  be  used  only  to 
select  the  type  of  aerosol  extinction  coefficients  to  be  used  in  the  (0-2  km), 

(2-10  km),  (10-30  km),  and  (30-100  km)  altitude  regions  as  in  the  MODEL  =  l  to 
six  cases.  VIS  on  CARD  1  is  not  used.  The  user  must  scale  the  AHAZE  values  to 
the  propci  sea-level  meteorological  range. 

(b)  AHAZE  >  0,  either  IHA1  >  0  or  1VUL1  >  0,  ISEA1  =  0 

where  IIIA  1  =  1  to  9  with  the  same  extinction  coefficient  options  as  IHAZE  in 
Section  8.  2,  and  IVUL1  =  1  to  5  with  the  same  extinction  coefficient  options  as 
IVULCN  in  Section  8.2.  When  IHA1  is  defined,  it  will  select  the  type  of  extinction 
coefficient  to  be  used  with  AHAZE  at  the  altitude,  Z,  and  correspondingly  when 
IVUL1  is  defined.  Only  four  different  altitude  regions  are  allowed  for  the  aerosols 
in  the  prog  ram.  The  boundary  altitudes  are  determined  from  the  altitude,  Z,  on 
the  MODEL  7  card  when  either  IHA1  or  1VUL1  changes  value.  These  boundaries 
do  not  necessarily  have  to  correspond  to  the  default  values  in  the  standard  models, 

(c)  AHAZE  -  0,  either  one  or  all  of  the  parameters  VIS1,  IHA1,  ISEA1 
and  IVUL1  defined 

where  ISEA1  =  1  or  2  with  the  same  seasonal  profile  options  as  ISEASN  in  Section 
8.  2.  The  aerosol  profiles  and  extinction  coefficients  will  be  determined  by  the 
values  of  these  parameters  at  each  altitude  Z.  Again,  as  in  (b)  only  four  altitude 
regions  for  the  aerosols  are  allowed  in  the  program,  with  the  boundaries  of  the 
regions  determined  by  the  altitude  Z  when  the  control  parameters  change.  Note 
also  that  IHA 1  takes  precedence  over  IVUL1  in  the  selection  of  the  type  of  extinc¬ 
tion  coefficients.  Examples  of  the  use  of  these  aerosol  options  are  shown  in 
!'  Section  9. 
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Although  data  for  cloud  extinction  is  not  provided  in  the  LOWTRAN  code, 
these  additional  aerosol  options  do  allow  for  user  cloud  modeling  in  the  atmosphere 
with  the  aerosol  control  parameters  on  the  MODEL  7  card. 

Note  that  IHAZE  must  be  defined  to  some  initial  value  greater  than  zero  to 
calculate  aerosol  extinction  and  that  at  least  two  altitudes  are  needed  to  define  an 
aerosol  altitude  region. 

8.3.2  HORIZONTAL  PATHS  (MODEL  =  0) 

If  meteorological  data  are  to  be  used  for  horizontal  path  atmospheric  trans¬ 
mittance  calculations,  then  set  MODEL  =  0  on  CARD  1.  The  following  parameters 
can  then  be  specified  on  CARD  2. 

CARD  2  HI,  P,  T,  DP,  RH,  WH,  WO,  RANGE  (FORMAT  3F10.  3,  2F5.  1, 
2E10.3,  F10.  3)  where  the  above  parameters  refer  to  altitude  (km),  pressure  (mb) 

ambient  temperature  (°C),  dew-point  temperature  (°C),  relative  humidity  (%), 

-3  -3 

water  vapor  density  (gm  m  ’  ),  ozone  density  (gm  m  ),  and  path  length  (km) 
respectively. 

The  format  for  the  above  card  is  similar  to  that  for  inputting  radiosonde  data 
(MODEL  =  7).  Again,  it  is  only  necessary  to  specify  the  quantities  underlined 
with  the  solid  line  and  one  of  the  quantities  underlined  with  the  dashed  line.  The 
ozone  density  WO  can  be  specified  using  the  parameter  M3  on  CARD  1  if  measure¬ 
ments  are  not  available.  In  the  latter  case,  a  value  will  be  calculated  at  altitude 
HI  based  on  the  appropriate  model  atmosphere  selected  by  M3. 

The  aerosol  control  parameters  for  the  MODEL  -  0  cases  are  on  CARD1  as 
described  in  Section  8.2. 


9.  EXAMPLES  OF  PROGRAM  OUTPUT 

Seven  oases,  representative  of  different  types  of  atmospheric  slant  paths, 
mode  of  program  execution,  and  atmospheric  and  aerosol  models  are  presented 
in  this  section.  The  input  cards  to  the  program  for  these  cases  are  listed  in 
Table  5.  A  description  of  the  program  output  for  each  of  the  cases,  calculated 
from  LOWTRAN,  follows. 

Case  1.  Calculate  the  transmittance  from  900  to  1145  cm  *  in  steps  of  5  cm”* 
for  a  slant  path  from  20  km  to  space  at  a  zenith  angle  of  90°,  for  the  U.  S.  Standard 
model  atmosphere,  and  a  23 -km  meteorological  range  for  the  rural  aerosol  model. 

The  output  for  Case  1  is  given  in  Table  G.  A  message  indicating  the  mode  of 
execution  of  the  program  is  printed  as  the  first  line  of  output.  For  this  problem, 
execution  will  be  in  the  transmittance  mode. 

The  parameters  defining  the  atmospheric  slant  path,  model  atmosphere, 
aerosol  mod.  1,  and  wavenumber  range  are  next  printed  out. 
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Table  5.  Input  Cards  for  the  Seven  Test  Cases 


*  * 

CASE 

1  •  capo 

l  * 

f.  1  5 

* 

•  CARD 

2  • 

?p. 

90. 

4 

•  CARO 

7  • 

QCl>.  1145. 

f, 

♦ 

*  CARP 

4  * 

2 

« 

2  *  caro 

1  * 

R  1  3 

l 

*  CAPO 

?  * 

Ji,  • 

90. 

* 

*  CAPO 

3  * 

O',  M  (jC, 

4 

*  CARD 

4  * 

9 

* 

• 

CASE  3  *  CA»0  1  * 

R  1  1 

* 

*  CARO  2  • 

0.  o . 

0. 

i.  o.  • 

9 

♦  CARP  3  * 

<?00.  1149. 

9. 

• 

*  CARO  4  • 

2 

» 

CASC  4  *  C  A  PC  1  • 

?  7  ? 

* 

•  CAPO  Z  * 

1  2  .  f  14 

iso. 

m 

4 

♦  CARO  ;  * 

a  n.  1 1  w  f 4 

c. 

+ 

* 

•  CARD  4  • 

? 

m 

*  CARE 

5 

*  CAPO  1  * 

0  1 

1 

"  i  l 

•  C  3 

• 

•MOT  EL  =  0  * 

A, 

1F00. 

10  . 

40. 

10. 

• 

•  CAPO  ?  * 

«co. 

1  1  4«. 

f  . 

* 

*  CARO  4  * 

? 

♦  CASE 

6 

•  CAPO  1  * 

7  3 

7 

n  n  ; 

0  0  2 

*1 

* 

•models  * 

0. 

l  PI  A. 

2  4. 4 

21.4 

* 

•MOOFL*  7  * 

1.  1  it 

I"*  0. 

??. 

IT. 4 

* 

•MOTEL-7  * 

0.94" 

3  91  , 

1  7  .f 

19.1 

•HOTEL*  *  * 

l.'d 

°  °?  • 

14  .t 

1  1  .Q 

* 

•HOD  EL  *  7  * 

i.  c?f 

a  cr 

12.? 

P,t 

* 

•MOTEL =7  • 

1.E5 

•??• 

12.? 

* 

♦MOTEL -7  • 

2  •  °7 

7-*=, 

u. e 

-1«.P 

* 

•MOTE  L  s  7  • 

7.  14 

'ro. 

7.2 

-20.8 

• 

•MOO  EL '7  ♦ 

9.  •? 

5"0  . 

-1  P.l 

-2?  .1 

* 

•MOTEL*  7  * 

f  t  “Ql 

4  *?. 

-11.? 

-27.5 

* 

•MODEL  =  7  * 

r.  ei 

4T”. 

-19.5 

-71.5 

• 

•MCOf L=  7  * 

5.  72 

7  3?  . 

-2P.5 

-41.5 

* 

•MOTEL *7  * 

1  * 

7?  *  . 

-72.7 

-■*9.7 

• 

•MODEL  *  7  • 

9,  r9 

?r  -  , 

-35.3 

-43.7 

* 

•MOO  FL  ~  "7  • 

T  •  7  ? 

?°4. 

-34.  7 

-  4  7 . 7 

• 

*HCOEL=r  • 

1C  .  '•> 

?P1  . 

-38. 7 

-49.7 

* 

•HOOF  L  *  7  * 

i : .  s  ? 

?F*  . 

-«*4.  7 

-50. 

4 

*H00EL=7  • 

12. 

?  0"  , 

-9  7,1 

-50. 

* 

•HOD  EL  =  7  • 

1%  E 

161  . 

-E9.5 

* 

•H00FL=7  • 

14.  "  c 

7  rn. 

-71.1 

-5  P. 

4 

•MOO  EL  =  7  • 

1E.  4C 

i  on. 

-70.9 

-50, 

4 

•CARD  2  * 

3.T1 

P  C  =  c 

75  .f 

♦ 

•  CARO  3  ♦ 

a,  7  , 

• 

•  CARO  4  ♦ 

? 

*  CASE 

7 

*  CAPO  l  • 

7  <? 

2 

r.  r  J 

6  6  6 

lc 

» 

•MOO  El  =  7  • 

.0 

* 

•HOTELS  ♦ 

,  ? 

• 

•HOTEL*  7  • 

.?"1 

2  0. 

1 

• 

•HOOF L  =7  • 

i.n 

23. 

1 

# 

•MODEL*  7  • 

?,  p 

2  3. 

1 

• 

•MOTEL -T  * 

2.  :i 

4 

•MCOc  L“ 7  • 

c. 

* 

•MOTE  L  =  7  • 

in. 

4 

•MODEL*7  • 

1 1 . 

4 

♦MOOt L  =  7  ♦ 

ir . 

4 

•MOnEL* 7  * 

y*-. 

4 

*MOOrL*7  • 

7  r , 

4 

•  CAPO  ?  • 

1  0. 

4 

•  CARD  3  • 

°00  . 

1149, 

5. 

4 

• 

*  CARD  4  • 

*4 

4*49 

*  *  4 
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Table  6.  Program  Output  for  Case  1  (C'ont. 


Table  6.  Program  Output  for  Case  1  (Cont. 


Table  6.  Program  Output  for  Case  1  (Cont. 


?30*PT:ON  qui  <C  C*-l  -  U3.9J*V=RAG£  TRANShI’TANCE 


Following  the  heading  HORIZONTAL  PROFILES  are  two  pages  of  output,  each 
of  12  columns.  On  the  first  page,  the  first  four  columns  list  a  running  integer 
associated  with  each  level  (level  indicator),  the  level  altitude  in  km,  the  level 
pressure  (mb),  and  the  level  temperature  (°K).  The  next  six  columns  give  the 
equivalent  absorber  amounts  per  km  for  the  following  absorbing  species:  water 
vapor,  uniformly  mixed  gases,  ozone,  nitrogen  continuum,  water  vapor  continuum 
(10  pm),  and  molecular  scattering.  The  Last  two  columns  give  the  mean  refractive 
index  modulus  (n  -  1)  from  that  level  to  the  level  above,  and  the  equivalent  absorber 
amount  per  km  for  the  UV  ozone. 

On  the  second  page,  the  first  four  columns,  listing  the  level  indicator,  altitude, 
pressure,  and  temperature  are  repeated.  The  next  two  columns  give  the  equivalent 
absorber  amount  per  km  for  the  water  vapor  continuum  (4  pm)  and  for  nitric  acid, 
The  next  four  columns  give  the  aerosol  amounts  per  km  for  the  four  altitude  regions 
provided  for  in  the  program.  The  last  two  columns  list  the  product  of  the  aerosol 
density  times  the  percent  relative  humidity  and  the  percent  relative  humidity  for 
the  boundary-layer  region. 

Following  the  horizontal  profiles,  level  information  at  H  1  calculated  in  sub¬ 
routine  POINT  is  printed. 

A  heading  VERTICAL  PROFILES  is  then  printed  followed  by  two  lines  of  out¬ 
put  per  atmospheric,  layer.  The  first  column  is  an  integer  level  indicator.  The 
second  column  gives  the  altitudes  of  the  levels  traversed  by  the  atmospheric  slant 
path.  The  next  eight  columns  give  the  integrated  equivalent  absorber  amounts 
from  the  initial  altitude  to  the  level  above  (with  the  species  identified  as  in  the 
header).  The  next  four  columns  are  labelled  PSI,  PHI,  BETA,  and  THETA,  and 
correspond  to  the  angles  i//,  <f> ,  (i,  and  6  described  in  Section  4.  Columns  PSI  and 
BETA  give  the  accumulated  values  of  <1/  and  ft  to  the  level  above.  Columns  THETA 
and  PHI  give  the  local  zenith  angle  corresponding  to  that  level  and  the  angle  of 
arrival  at  the  level  above,  respectively,  in  the  last  column,  the  accumulated  slant 
range,  RANGE,  is  printed,  and  below  it  the  differential  slant  range  of  the  levels 
traversed. 

The  total  equivalent  absorber  amounts  along  the  atmospheric  path  are  then 
summarized  in  their  appropriate  units. 

Control  parameters  for  the  altitude -dependent  aerosol  extinction  and  absorp¬ 
tion  coefficients  are  then  printed  from  Subroutine  EXABJN. 

A  transmittance  table,  containing  13  columns,  now  follows,  The  first  three 
columns  give  the  frequency  (cm  *)  wavelength  (pm),  and  total  transmittance.  The 
next  seven  columns  show  the  individual  transmittance  due  to  water  vapor,  uniformly 
mixed  gases,  ozone,  nitrogen  (4  pm)  continuum,  total  water  vapor  continuum, 
molecular  scattering,  and  total  aerosol  extinction.  The  next  tsvo  columns  give 
absorption  due  to  aerosols  and  the  cumulative  integrated  absorption.  The  latter 

(if) 


quantity  can  be  used  to  determine  the  average  transmittance  over  any  given  spec¬ 
tral  interval  within  the  spectral  range  covered  by  the  calculation.  The  last  column 
gives  the  transmittance  of  nitric  acid.  Finally,  the  total  integrated  ausorption 
from  VI  to  V2  is  printed  out  (units  are  cm  )  together  with  the  average  transmit¬ 
tance  over  the  band. 

Case  2.  Calculate  the  radiance  at  HI  for  the  same  conditions  as  in  Case  1, 

The  output  of  the  program,  shown  in  Table  7,  is  identical  to  that  of  Case  1  up  to 
and  including  the  printing  of  the  aerosol  control  parameters. 

Two  parameters,  J1  and  J2,  are  then  printed  out.  These  parameters  control 
the  loading  of  the  cumulative  absorber  amounts  into  the  matrix,  WPATH. 

A  heading  CUMULATIVE  ABSORB  EH  AMOUNTS  FOR  THE  ATMOSPHERIC 
PATH  is  then  printed  followed  by  Id  columns.  The  first  column  gives  an  integer 
associated  with  the  layer  traversal  by  the  atmospheric  slant  path.  The  following 
10  columns  give  the  cumulative  absorber  amounLs  for  the  following  species:  water 
vapor,  uniformly  mixed  gases,  ozone,  nitrogen  continuum,  water  vapor  continuum 
(10  pm),  molecular  scattering,  aerosol  extinction  (boundary  layer),  UV  ozone, 
water  vapor  continuum  (4  pm)  and  nitric  acid.  The  next  column  is  the  average 
temperature  of  the  layer. 

Below  this  outpri,  the  layer  ID  is  repeated  and  the  other  three  altitude-depen¬ 
dent,  cumulative  aerosol  absorber  amounts  are  printed. 

A  radiance  table,  containing  six  columns,  now  follows.  The  first  two  columns 

give  the  frequency  (cm  )  and  the  wavelength  (pm).  The  next  two  columns  give  the 

')-i2 

radiance  in  units  of  W/cra" -ster-cm  and  W/cm  -ster-um.  The  next  column 
gives  the  cumulative  integrated  radiance  (W/cm^-ste").  The  last  column  is  the 
total  transmittance. 

Finally,  the  maximum  and  minimum  radiances  and  their  frequencies,  the  inte¬ 
grated  absorption,  the  average  transmittance,  and  the  total  integrated  radiance 
are  printed. 

Vase  3.  Calculate  the  transmittance  from  900  to  1145  cm’*  in  steps  of  5  cm”1 
fur  a  1-km  horizontal  path  at  sea  level,  using  the  U.S,  Standard  atmosphere  and 
the  rural,  23  -km  meteorological  range,  aerosol  model. 

The  output  for  Case  3,  shown  in  Tabic  8,  with  the  exception  of  the  omission  of 
the  vertical  profiles,  is  similar  to  that  described  for  Case  1. 

Case  4.  Calculate  ihe  transmittance  from  900  to  1145  cm  1  in  slops  of  5  cm”1, 
for  a  slant  path  from  12  km  lo  ground  (0  km)  at  a  zenith  angle  of  130°,  using  the 
midlatitude  summer  model  atmosphere  and  a  maritime,  23  km.  meteorological 
range  aerosol  model. 

The  output  for  this  case,  shown  in  Table  !J,  is  similar  lo  that  described  for 
Case  1. 
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TabLe  7.  Program  Output  for  Case 


Table  7.  Program  Output  for  Case  2  (Cont.) 


Table  7.  Program  Output  for  Case  2  (Cont. 
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Table  8.  Program  Output  for  Case  3  (Cont, 
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Table  8.  Program  Output  Tor  Case  3  (Cont. 


Table  9.  Program  Output  for  Case  4 
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Table  9.  Program  Output  for  Case  4  (Cont. 


I 


Z  Ul  Ol  K  OO1  n  j  Q  «*j  O  J  o  ]  O  II  O  3  □  O  D  IJ  o  ->  O  O  O  o  DO  (3  CD  JOOOcjOOOCDCiOOOO  3  P  1  O 

4  u>  ir  131  O'  V  a  1  a  )  o  ID  O  i  o  j  u  }  a  >  w  j  o  )  u  UO]  o  j  u  j  id  j  o  id  o  do  ju.dqijuuo  1  a  'j  o 

(rfl'd'C'O'iro  jo  j  Q  j  o  .000  ,  a  »  o  10  30-30  3  o  >0009000  3  o  3  o  -j  o  o  o  =  c>  -j  0  »o 

h  (P  O'  (JI  (J>  l»  O  d  O  DO. 30  JOOO  J  o  _1  o  _»  c  >  a  j  a  .3  o  joouoo  JO  3O.30jooooo.jo  jo 


u  Z‘J  *1  s  4  fl  rl  rJ)  t^uo  J  IT  rt  W  j  SNOJ  H  S  N  iim  «J  J>  4  01  W  J  fO  .J  IM  i  U'  n|  o  r.  Tl  m  r-*  H  -O  ZJ  -z  [XJ  *  r^.J- 

UJOul'C/T'O^'filS  jHmao  jOJIO'  4NKNKH*HOin  }QMMTirn<OKNn>KO«fgiNO 

*-  HIAlC^iDNOS-N  J  fP  l\J  K  rp  -Z  3  «)  o  s  J) 

»(l-<UAMTi'DtJlv«(TilfHK.fPN4,1iDWrT'«*OTl  t  IIP  iHIftdlfiWtfuOfgKlO  ODONWlJIJBiiTiK 
U  l  .  .  ■  •  •  «  •  •  •  .  . .  •■•,!  •  •  •  ,  •  • 

uir  <\l  jinr-U'tlMmi^NW  lNW«>NOJ»<',Ml'\OWJMT<l\J44>U'iH^l^f‘(I,ON',’U'NoQHF/J|CSg 

iuq  ri  h  h  ^  i\j  w  13  n  rg  fo  m  f]  cj  n  t-i  J  j-t  j  ^LntTiU'injiOiuj^jjr^s-KN  K  mj  moo  ®  o  'Q 


u  i/i  m  itj  ajvOJiv  wcrr-  J  o  >u  ri  (r  J3  i>j  o'  iri  o'  csj  iX!  o  ho  r~-  riu-iff'^oirjXuU'lt  J  ovUt-iOiU^SScdO'ir 

Vi  2  j  p  j  p  u  3  1  01  o'  y  j.  qj  a  c  K  n  lh  y}  i^  u'  D  j  r  n  tj  h  ,1  u  j>  o>  o  u  r  r-  y  i/i  ir.  -D  J  -z  #*>  m  r*}  t*'  4>  m  r*y  kj 

U«4JK|IUwniBU^N<%I^r-l'NNNNf-NNNr’SKI~r.r't>^ilMli'U^llMlMUitl4J^llMUWlll4MUVltMlli<I1; 


0lt<a)nl('O4«)N>eD3KH4Nol"iC^NJMI'»i'»i0«)ON4U'KU'ONniMC«POH'Jn4lfl>0N«0'li) 
UQtl^lMMnKin44K<lMA<l4)4<hsSK«iM)«i;>9ia>aiOOooOP^HrlT4Hv*riN(gl'JIMNMMI\IM(UO 
cr  r-  ^  h-  k  ►-  h  -  r~  n  K-K-h~r~-h-K-K.K.h-h-^i-  KNSKNaicnj«roCit<t’*i®'0i0«ici0iri'''»>c)ec,07 

of-  .  •  ,  . . . . . . .  1  t  .«»•••  t  •••.  t< 

M  H 

tr  *- 

h-i 

V 

»-L'iooo°c?==C3C’,-,o^'c,r,<-,<='=c”'^'','=t?oo'-'o^C3  0r>ooc»«--it30r*f-.«-»«->oc«riool;;oor-i'-*t,l 
»Z«>0*»OC3oC’OC30«:,OC»OOC3e3000C30'C30r3c«^C3CDO«=>OOOe300rDOeSC»ar3E>C»c3C»»-*OCl* 

S.ioOOOOeDoooooCDCjLDooonOOCTCDOOooooooooooOooooQcDOCDOoootaao* 

KoooaaeooDrioooeaon(SPPi«oeoooDOoo»ooD«iOoOOooO»«»«»»oOoBO; 

O 

UI4ooo“oOOOOiroNn«i«>Mtf9'-<^B|(iNi««)n«ini6MJitfi0Si«NMJiP«^KI'4N»N0iliiea 
Z*OOPO°oPP°0'(l’h  ifiMPDi*iir3rl5'T<U>'#J«»H0'.f^-O'^'<IJ',o,'><U'U  tf>aS|flf'DJI'l4  U'  IT  w  lU 
0*»OrDOO<=»-i3oOoa'cr'C7'Cr<T,<J'«KVr^rl^irvCU^’^'0vZ3C7'f'JIVtr>^lvr'(y'’^K«l«;O<.'<'>r3«»3®<>«0«3*0'>- 
r^a;oooCD«=oooo<rtro't7»<ro'0'a.i7'^a'««»«>h^^i^%cf-«o»^Kf^Kv<7'e‘a‘0'a'0'W'o'C'(7>o,«ra'<ro'^ 

Oh* . . . . . . *  ♦  . . * 

HvCc-i'Hvl'rtH'-lc-l  h' 

• 

IHOoesroonHU'niMin'Jh''  m  ►.  «  «  r  it  jci  r--  f-.  ru  n  a>  N  h-  jr-  aj  aj  —*  »c  »-i  ^  O'  cu  H'foil'Mirrh. 

♦  z  D  «  O)  .tNKNiONCiPMOKi^^N  iOlfjN«jiqvlinujifiori«inJMSKNlf>*'C»l®(rff1J'h.irPhl4 

Maoa'0'IT(r«0«hh.'i<i0\D-CiB'C'03£ih-C(PI7'U'(7'O'i7'|nVSN'JU'IMf'«'JJini£h.«}Cr'1‘0'0'<Z,0'a’l7'«h* 

oacj(T'CT,'T'^'0'cro'<p'z'<r'0'0'cr<7'<7,trcr’ir'crc7'o-u\cpcr<rio'or'tro’a'o'<T>ij'u’0'cr>CT'cr’'»'cno’ij'qr'a»ira'(r(7'tr 


L 


W  (P(T  n  H®J)PIT'«(rirO'rt^  MOIBlrU'i«OiDK  ^4MOJh  ~t  *> 

Z('JNiClP»N£cjfOnJNuiJhiiU|fi^)IPo4)0«U'lj',,liflU’ir'<'i'0' 
Cl  Jh)(OhlKnCXiDiDir4(OhjKl  •'/»'>  .}  IpifcU'WN^OtlTl^WMh.  NH 

fvn  O'o'CT'tT’a  01  O'lPO'O'  O’ ir  m  (r  (J1  a- n- o' 0  o  o'  cr  p-  <t>  c  cn  o  m  o-  it  o' 


■  a>  z  it  . 

jOOaNN^OSifiifMOMToffeK 
l>  (T  n  l7'n'0»D'l7'0fi«5(003«'«j«7  10  «  a>  If' 


O’f.  IJIDnHU'Wlf®0»3J  n^Hrl>illf-lD-J^H®»I^^T*mU'.fl(;Jff'4rTI|- 

r»  r.  .r  ii-  r~  u.-  mc  ru  o  o  ',■  4  i>-  hi  o-  ci  f  — •  tr  o  *•  n'U'«>o'tj'0'Of*-vf>K  n  rr  o  (!■  m  k.  o 

if  .1  f.  iImIij.  jiijiili  f'l;.  ifif|flhjipu'U‘J|('U'J'iUiil|fi£)ii)ii>>l'*)4l'niflN®iX,|Z|0 


98 


Case  5.  Calculate  the  transmittance  from  900  to  1145  cm"'  in  steps  of  5  cm  \ 
using  the  MODEL  =  0  option  to  define  a  10-km  horizontal  path  at  0-km  altitude, 
at  a  pressure  of  1000  mb,  an  ambient  temperature  of  10°C,  and  a  relative  humidity 
of  40  percent.  Use  the  midlatitude  winter  ozone  profile,  and  a  23-km  meteorolog¬ 
ical  range,  rural  aerosol  model. 

The  output,  shown  in  Table  10,  is  similar  to  the  horizontal  path  case,  Case  3, 
given  in  Table  4. 

Case  6.  Calculate,  using  the  MODEL  =  7  option,  for  a  given  set  of  radiosonde 
data  the  transmittance  from  900  to  1145  cm  ^  in  steps  of  5  cm  *  for  a  slant  path 
from  0.  21  km  to  8.  55  km  at  a  zenith  angle  of  35.  5°.  Use  a  23-km  sea-level 
meteorological  range  for  the  maritime  aerosol  model  and  the  ozone  distribution 
of  the  midlatitude  summer  atmospheric  model. 

In  this  example,  the  radiosonde  data  consists  of  21  levels  with  the  following 
parameters  given:  altitude  (km),  pressure  (mb),  ambient  temperature  (°C)  and 
dew-point  temperature  (°C). 

The  output  for  Case  6  is  given  in  Table  11.  The  only  change  in  the  output 
from  a  standard  run  occurs  of  the  first  page  of  the  output.  Each  MODEL  =  7 
input  card  is  printed  followed  by  the  internal  model  profile  parameters  derived 
from  this  card.  Also,  detailed  information  on  the  aerosol  profile  and  type  of 
extinction  is  printed  for  each  level.  The  rest  of  the  output  is  the  same  as  that 
described  for  the  previous  standard  transmittance  cases. 

Case  7.  Calculate  the  transmittance  from  900  to  1145  cm  1  in  steps  of  5  cm  1 
for  a  vertical  path  from  ground  to  10  km  (zenith  angle  =  0°).  Using  the  MODEL  =  7 
option,  provide  for  a  radiation  fog  (0.  5  km  meteorological  range)  from  ground  to 
200  meters  altitude  and  a  rural  aerosol  model  (23-km  meteorological  range)  from 
200  meters  to  2-ktn  altitude.  Use  the  U.  S.  Standard  model  atmosphere  profile  for 
the  molecular  absorber  amounts  and  for  the  pressure  and  temperature  profile. 

In  this  example,  only  the  altitudes  of  the  levels  and  the  aerosol  control 
parameters  need  to  be  specified  on  the  MODEL  =  7  cards.  The  program  output 
for  this  case  is  given  in  Tanle  12  and  is  similar  to  that  of  Case  6. 


Table  10.  Program  Output  for  Case 
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Table  11.  Program  Output  for  Case 
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Table  11.  Program  Output  for  Case  6  (Cont. 
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10.  EXAMPLES  OF  TRANSMITTANCE  AND  RADIANCE  SPECTRA 


Some  examples  of  transmittance  and  radiance  spectra  obtained  from 
LOWTRAN  5  are  presented  in  Figures  28  through  41,  Figures  28  to  30  show  the 
variations  in  transmittance  and  radiance  with  the  six  model  atmospheres  for  three 
atmospheric  paths.  The  rural  aerosol  model,  with  a  23 -km  VIS,  was  used  for  the 
boundary  layer,  and  the  default  aerosol  models  for  the  rest  of  the  atmosphere. 

The  spectral  regions  shown  are  between  400  and  2000  cm  *  and  between  2000  and 
3P00  cm 

Figures  31  to  38  show  the  variation  in  transmittance  and  radiance  with  atmos¬ 
pheric  slant  path  for  the  U.S.  Standard  model  atmosphere  and  the  rural,  23-km 
VIS,  aerosol  model  for  the  spectral  region  between  400  and  4000  cm  These  '  » 
figures  show  the  range  of  observer  altitudes,  zenith  angles,  and  atmospheric 
slant  paths  to  which  the  code  can  be  applied  to  model  transmittance  and  radiance, 
for  specific  atmospheric  problems. 

Figure  3  9  shows  the  transmittance  from  ground  to  space  from  0.  25  to  4  p m. 

This  calculation  used  the  U.S.  Standard  model  atmosphere  and  the  rural  aerosol 
model  with  a  23-km  VIS. 

Figure  40  shows  the  variation  in  transmittance  in  the  spectral  region  between 
400  and  4000  cm  1  for  the  rural,  maritime,  urban,  and  tropospheric  aerosol 
models.  The  calculation  is  for  a  10-km  horizontal  sea-level  path  us'ag  the  U.S 
Standard  model  atmosphere  and  a  23-km  VIS. 

Figure  41  shows  the  transmittance  of  the  two  fog  models  in  LOWTRAN  for  a 
0.2-km  horizontal  sea-level  path  and  a  1-km  VIS  in  the  spectral  regions  from 
400  to  4000  cm  *. 
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b.  radiance,  from  400  to  2000  cm"* 

Figure  20.  Transmittance  and  Radiance  Spectra  for 
a  Vertical  Path  Looking  to  Space  From  the  Ground 
(HI  =0,  H2  >  100  km,  ANGLE  =  0°),  with  the  Rural 
Aerosol  Model  (IHAZE  =  1,  VIS  =  23  km),  and  for  the 
Six  Model  Atmospheres 
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e.  transmittance,  from  2000  to  3600  cm** 
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d.  radiance,  from  2000  to  3  600  cm"*- 

Figure  28.  Transmittance  and  Radiance  Spectra  for 
a  Vertical  Path  Looking  to  Space  From  the  Ground 
(HI  -  0,  H2  2  100  km,  ANGLE  =  0°),  with  the  Rural 
Aerosol  Model  (IHAZE  =  1,  VIS  =  23  km),  and  for  the 
Six  Model  Atmospheres  (Cont. ) 
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a.  transmittance,  from  400  to  2000  cm'l 
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b.  radiance,  from  400  to  2000  cm"* 

Figure  29,  Transmittance  and  Radiance  Spectra  for 
a  Slant  Path  at  45°  Looking  to  Space  From  the  Ground 
(HI  =  0,  H2  >:  100  km,  ANGLE  =  45°)  with  the  Rural 
Aerosol  Model  (IHAZE  =  1,  VIS  =  23  km),  and  for  the 
Six  Model  Atmospheres 
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c.  transmittance,  from  2000  to  3  600  cm 


WAVENUMBER  (CM-1! 

d.  radiance,  from  2000  to  3  600  cm'* 

Figure  29.  Transmittance  and  Radiance  Spectra  for 
a  Slant  Path  at  45°  Looking  to  Space  From  the  Ground 
(HI  =  0,  H2  >  100  km,  ANGLE  =  45°)  with  the  Rural 
Aerosol  Model  (IUAZE  =  1,  VIS  =  23  km),  and  for  the 
Six  Model  Atmospheres  (Cont. ) 
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a.  transmittance  from  400  to  2000  cm'* 


b.  radiance  from  400  to  2000  cm'* 

Figure  30,  Transmittance  and  Radiance  Spectra  for 
a  Vertical  Path  Looking  at  the  Ground  From  Space 
(HI  2  100  km,  H2  =  0,  ANGLE  =  180°)  With  the  Rural 
erosol  Model  (IHAZF  =  1,  VIS  =  23  km)  and  for  the 
Model  Atmospheres 
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c.  transmittance  from  2000  to  3  600  cm’* 


d.  radiance  from  2000  to  3G00  cm"' 


Figure  30.  Transmittance  and  Radiance  Spectra  for 
a  Vertical  Path  Looking  at  the  Ground  From  Space 
(III  >:  100  km,  H2  =  0,  ANGLE  =  180°)  With  the  Rural 
Aerosol  Model  (IUAZE  =  1,  VIS  =  23  km)  and  for  the 
Six  Model  Atmospheres  (Cont, ) 
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Figure  31.  Transmittance  and  Radiance  Spectra  for 
a  Vertical  Path  Looking  to  Space  From  Ill  (11 1  -  0, 

20  km,  40  km,  112  2  100  km,  ANGLE  =  0°)  the  Rural 
Aerosol  Model  (I HA ZE  =  1,  VIS  =  23  km)  and  the 
U.  S.  Standard  Atmosphere  (MODEL  =  6),  From  400 
to  4000  cm"1:  a.  transmittance,  b.  radiance 
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Figure  32.  Transmittance  and  Radiance  Spectra  for 
a  Slant  Path  at  4  3°  Looking  to  Space  From  Ill  (HI  -  0, 
20  km,  40  km,  ANGLE  -  45°)  With  the  Rural  Aerosol 
Model  (II1AZE  -  1,  VIS  -  23  km)  and  the  U.  S.  Standard 
Atmosphere  (MODEL  =  6)  From  400  to  4000  nn'*: 
a.  transmittance,  b.  radiance 
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Figure  33.  Transmittance  and  Radiance  Spectra  for 
a  Slant  Path  Looking  From  Space  to  Space  Through  a 
Tangent  Height  of  HMIN  (ITYPE  =  3,  HI  £  100  km, 
HMIN  =  0.  5  km,  20  km,  40  km)  With  the  Rural  Aero¬ 
sol  Model  (IHAZF  =  1,  VIS  =  23  km)  and  the  U.  S. 
Standard  Atmosphere,  From  400  to  4000  cm-1: 

a.  transmittance  (for  HMIN  =  C.  5  km,  the  transmit¬ 
tance  is  —  zero  between  400  and  4000  rm"'), 

b.  radiance 
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Figure  35.  Transmittance  and  Radiance  Spectra  for 
a  Slant  Path  Looking  to  the  Ground  From  HI  (HI  =  10, 
20,  30  kin.  H2  =  0  km,  ANGLE  =  1?5°)  With  the  Rural 
Aerosol  Model  (IHAZE  =  1,  VIS  =  23  km)  and  the  U.  S. 
Standard  Atmosphere  (MODEL  =  6),  From  400  to 
4000  run”*:  a.  transmittance,  b.  radiance 
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Figure  36.  Transmittance  and  Radiance  Spectra  for 
a  Vertical  Path  Looking  at  the  Ground  From  III 
(III  =  10.  20,  30  km,  A NGLE  =  180°)  With  the  Rural 
Aerosol  Model  (MAZE  =  1,  VIS  =  23  km)  and  the 
U.S.  Standard  Atmosphere  (MODEL  =  6)  From  400 
to  4000  cm'*;  a.  transmittance,  b.  radiance 
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Figure  37.  Transmittance  and  Radiance  Spectra  for 
a  Slant  Path  From  Space  to  Space  Through  a  Tangent 
Height  KMIN  (HYPE  -  3,  HI  s  100  km.  HM1N  =  10, 

20,  30  km)  With  the  Rural  Aerosol  Model  (IHAZE  =  1, 

VIS  -  23  km)  and  the  U.S.  Standard  Atmosphere 
(MODEL.  ~  0)  From  400  tu  4000  cm"':  a,  transmittance, 
b.  radiance 
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Figure  38.  Transmittance  and  Radiance  Spectra  for 
a  Vertical  Path  Looking  From  Space  to  H 2  (Ill  r*  100  km, 

Ii2  =  10,  20,  30  km,  ANGLE  =  180°)  With  the  Rural 
Aerosol  Model  (IHAZE  =  1,  VIS  =  23  km)  and  the  U.  S. 
Standard  Atmosphere  (MODEL  =  6)  From  400  to  4000  cm'1: 
a.  transmittance,  b.  radiance  (atmospheric  radiance 
only,  assuming  no  boundaries) 
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Figure  39.  Transmittance  Spectra  for  a  Vertical  Path  From  Ground  to  Space 
From  0.  25  to  4  ji,  Using  the  Rural  Aerosol  Model,  23 -km  VIS  and  the  U,.  S. 
Standard  Model  Atmosphere 


Figure  40.  Transmittance  Spectra  for  a  10-km 
Horizontal  Path  at  Sea  Level  for  the  Rural,  Mar¬ 
itime,  Urban,  and  Tropospheric  Aerosol  Models 
Using  the  U.  S.  Standard  Model  Atmosphere  and 
a  VIS  of  23  km 
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Figure  41.  Transmittance  Spectra  for  the  Advec- 
tion  Fog  (Fog  1)  and  the  Radiation  Fog  (Fog  2) 
Models,  for  a  0.  2 -km  Horizontal  Path  at  Sea  Level, 
With  the  U.S.  Standard  Model  Atmosphere  and  a 
1-km  VIS,  From  400  to  4000  cm'1 


11.  AEROSOL  MODEL  COMPARISON  WITH  MEASUREMENTS 

Between  January  and  September  1970,  EMI  Ltd.  made  a  series  of  measure- 

80  8 1 

ments  of  infrared  transmittance  at  various  wavelengths  over  the  sea.  ’  Under 
the  conditions  of  the  setup,  the  experiment  was  largely  a  measurement  of  aerosol 
extinction  and  it  provides  a  data  set  against  which  the  LOWTRAN  maritime  aerosol 
model  can  be  tested,  This  section  will  review  these  measurements  briefly  and 
compare  them  with  LOWTRAN  calculations. 

11,1  Measurements 

The  EMI  measurements  were  made  over  a  20-krn  path  across  Mounts  Bay  at 
the  southwestern  tip  of  England.  Most  of  the  path  was  several  kilometers  offshore. 
The  source  for  the  transmittance  measurements  was  a  3800-K  carbon  arc  black- 
body  while  the  receiver  was  a  Golay  cell  mounted  at  the  focus  of  a  7G-cm  diameter 

80.  Arnold,  D.H.,  Lake,  D.  B. ,  and  Sanders,  R.  (1970)  Comparative  Measui  e- 

ments  of  Infrared  Transmission  Over-  a  Long  Overseas  Path,  EMI  Report 
DMP  3736. 

81.  Arnold,  D.H,  and  Sanders,  R.  (1971)  Comparative  Measurements  of  Infrared 

Transmission  Over  A  Long  Overseas  Path,  EMI  Report  DMP  3858. 
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mirror.  Various  filters  could  be  placed  in  front  of  the  detector.  In  this  report, 
data  will  be  presented  on  three  filters:  their  filter  response  functions  are  shown 
in  Figure  42, 


Figure  42.  System  Response  Functions  for  Three  of  the  Filters 
From  the  EMI  Measurements:  1.  0.  57  to  0.  97  p;  2.  3.  5  to 

4.2  p;  3.  7.9  to  11.3  p 


In  addition  to  the  transmittance,  other  physical  parameters  were  measured  at 
one  end  of  the  path,  including:  air  temperature,  relative  humidity  (from  a  wet.  and 
dry  bulb  thermometer),  wind  speed  (estimated  according  lo  the  Beaufort  scale), 
wind  direction,  and  visibility  (estimated  by  an  observer  viewing  six  landmarks 
around  Mounts  Bay).  A  block  of  data  consisted  of  the  measurement  of  these 
physical  parameters  plus  the  detector  response  for  each  of  the  filters  consecutively. 

11.2  Calibration 

The  measurements  were  calibrated  by  selecting  one  particular  data  block 

with  the  highest  (relative)  measured  transmittance  for  the  7.9-  to  11.3-g  filter: 

for  this  case  the  absolute  transmittance  was  calculated  using  the  data  from 
82 

Altshuler.  Comparing  the  absolute  calculated  value  of  the  transmittance  with 
the  relative  measured  value  allowed  the  baseline  for  (his  filter  to  be  set.  The 
system  response  for  the  other  filters  relative  to  the  7.  9-  to  11.  3-p  filter  was  also 
measured  over  a  short  path  with  negligible  attenuation.  From  the  absolute  trans¬ 
mittance  for  the  7.  9-  to  11.  3-p  filter  and  the  relative  responses  of  the  other  filters, 
the  baselines  for  the  other  filters  could  be  set. 

82.  Altshuler,  T.  E.  (1951)  Infrared  Transmission  and  Background  Radiation  by 
Clear  Atmuspheres.  GE  Report  G1SD  199,  AD401923, 
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The  data  are  actually  presented  as  "effective  atmospheric  extinction  coeffi¬ 
cients"  cr  which  are  related  to  the  filter -averaged  transmittance  T  by 


a  =  -(In  T)/L 


(32) 


where  L  is  the  path  length;  in  this  case  20  km.  (Note  that  a  is  merely  the  log  of 
the  transmittance  and  is  not  comparable  to  a  band  model  extinction  coefficient. 
Since  the  transmittances  span  four  orders  of  magnitude,  it  is  necessary  to  present 
the  data  on  a  log  scale. )  As  will  be  seen  later,  the  quality  of  the  calibration  ap¬ 
pears  to  be  good. 

11.3  LOWTRAN  Calculations 

To  compare  with  the  measured  transmittances,  the  equivalent  filter-weighted 
transmittance  for  each  data  block  was  calculated  using  LOWTRAN  5.  The  required 
inputs  to  LOWTRAN  were  given  by  the  path  length  (20.  0  km)  the  pressure  (assumed 
to  be  1013.25  mb),  and  the  measured  temperature  and  relative  humidity.  The 
inputs  relating  to  the  aerosol  extinction  are  the  aerosol  model  and  the  meteorolog¬ 
ical  range.  For  most  calculations  the  maritime  aerosol  model  was  used.  How¬ 
ever,  the  observer-estimated  value  of  visual  range  reported  in  the  data  was  found 
to  be  inaccurate  and  unrepresentative  of  the  conditions  along  the  path. 

To  circumvent  this  problem  with  the  observer  estimated  visibility,  it  was 
decided  to  use  the  measured  value  of  the  extinction  for  filter  1  (0.  57-0.  97  p)  to 
derive  a  value  for  the  meteorological  range.  The  meteorological  range,  VIS,  is 
defined  as  the  path  length  over  which  the  transmittance  at  0.  55  p  is  0.  02.  From 
this  definition  and  from  Beer's  law 


VIS 


3.912 
a(0  55) 


(33) 


where  ct  (0.  55)  is  the  total  extinction  coefficient  at  0.  55  p  and  3.  912  =  In  (0.  02), 

(See  footnote  on  page  22,  Section  3.2.) 

In  the  spectral  region  from  0.  57  p  to  0.  97  p,  the  extinction  coefficient  is  dom¬ 
inated  by  the  aerosol  extinction  coefficient  which  in  LOWTRAN  depends  only  upon 
the  wavelength,  VIS,  and  to  a  lesser  extent,  the  relative  humidity.  Neglecting  the 
relative  humidity  dependence  for  now,  if  is  the  calculated  mean  filter-weighted 
aerosol  extinction  coefficient  for  filter  1,  then  =  a  (0.  55)  B,  where  B  is  a 
constant.  One  can  then  write 


VIS  = 


3 ,  9 1 2  X  B 


(34) 


X28 


Now  between  0.  57  and  0.  97  p,  the  aerosol  extinction  coefficient  varies  slowly  with 
wavelength,  especially  for  the  maritime  aerosol  model  (see  Figure  10a).  For  this 
reason  we  can  approximate  by  the  measured  effective  atmospheric  extinction 
coefficient  CTj  (Eq.  (32))  even  though  the  spectral  weighting  is  different  for  the  two 
quantities.  Therefore,  to  the  degree  of  approximation  noted  above,  one  can  write 

VIS  =  3.  912  X  B/ct 

In  practice,  the  constant  B  was  determined  empirically  by  assuming  an  initial 
value  of  B  and  calculating  the  "effective  extinction  coefficient"  (that  is,  -  L  * 

In  T.,  where  is  mean  transmittance  for  filter  1  calculated  by  LOWTR.AN)  for 
each  case  in  the  data  set.  B  was  then  adjusted  until  the  mean  of  this  value  aver¬ 
aged  over  the  sample  equalled  the  mean  of  the  measured  values  cr^. 

11.4  Results  of  the  Comparison 

This  section  will  present  the  results  of  the  comparison  of  the  measured  and 
calculated  extinctions  for  various  subsets  of  the  measured  data.  In  the  figures 
to  be  presented,  the  axes  will  represent  the  "effective  extinction  coefficient'1,  that 
is,  (-In  T)/L,  where  T  is  the  filter-weighted  mean  transmittance  over  the  path 
length  L,  =  20  km,  The  solid  line  in  each  figure  is  a  45°  line  through  the  origin 
while  the  dashed  line  is  a  least -squares  fit  ol  the  calculated  extinctions  to  the 
measured  ones.  Note  that  since  both  the  measured  and  the  calculated  extinctions 
contain  errors,  simple  least-squares  theory  is  not  strictly  applicable  in  this  case. 

Figure  43  shows  the  calculated  vs  the  measured  effective  extinction  coefficient 
for  the  7.  9-  to  11.  3  -p  filter  for  the  50  cases  of  highest  meteorological  range 
(that  is,  the  lowest  extinction  in  filter  1).  The  maritime  aerosol  model  was  used 
in  the  calculations;  however,  due  to  the  combination  of  the  spectral  region  and  the 
high  visibility,  the  maximum  calculated  aerosol  extinction  in  these  cases  is  less 
than  0.  02  km  ,  This  graph  then  is  primarily  a  demonstration  of  molecular 
extinction. 

The  regression  line  gives  an  indication  of  the  quality  of  fit.  The  fact  that  the 
y-intercept  is  nearly  zero  indicates  that  the  calibration  of  the  measurements  is 
good  while  the  slope  cf  the  line  of  1.09  indicates  that  the  average  fit  is  within 
10  percent.  The  standard  deviation  about  the  regression  line  is  0,016  km”*;  the 
random  uncertainty  between  the  measured  and  the  calculated  extinctions  can  be 
taken  as  plus  or  minus  two  standard  deviations  or  ±0.  032  km  .  The  mean  trans¬ 
mittance  for  this  set  of  points  is  about  0,09.  For  the  level  of  transmittance,  the 
uncertainty  in  the  "effect!ve  extinction  coefficient"  of  ±0,032  km~*  translates  to  an 
uncertainty  in  the  transmittance  of  about  ±0.06. 
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Figure  43.  Comparison  of  the  Calculated 
vs  the  Measured  "F.'ffective  Extinction  Co¬ 
efficients"  for  the  7.9-  to  11.  3 -p  Filter  for 
the  50  Cases  of  Highest  VIS,  Fsing  the 
Maritime  Aerosol  Model.  The  dashed  lino 
is  a  simple  least-squares  fit  of  the  calcu¬ 
lated  to  the  measured  data:  the  slope,  the 
intercept  and  the  standard  deviation  about 
the  regression  line  are  given 


Since  the  calibration  error  appears  to  be  negligible,  all  further  regression 
lines  will  be  constrained  to  pass  through  the  origin. 

The  maritime  aerosol  model  is  designed  to  be  representative  of  moderate 
wind  speed  conditions  over  the  open  ocean.  To  test  the  validity  of  this  model, 
those  cases  for  which  the  wind  was  off  the  ocean  and  between  6  and  17  m/sec 
(Beaufort  scale  4  to  7)  were  selected.  The  results  for  this  subset  of  the  data  for 
the  3.4  to  4.  2  p  and  for  the  7.  9-  to  11.3-p  filters  are  shown  in  Figures  44a  and  b. 
In  both  cases,  slope  of  the  regression  line  is  not  significantly  different  from  1, 
indicating  a  good  average  fit  between  the  calculated  and  the  measured  extinctions. 
Also,  the  standard  deviations  about  the  regression  lines  are  not  significantly 
greater  than  that  in  Figure  43,  indicating  the  same  level  of  random  error. 

To  demonstrate  the  results  when  an  inappropriate  aerosol  model  is  used,  the 
subset  of  the  cases  for  which  the  wind  was  offshore  was  chosen  and  the  L.OWTRAN 
ti  admittances  were  calculated,  again  using  the  maritime  aerosol  model.  The 
results  for  the  3.4-  to  4.  2-p  and  the  7.9-  to  11.3-p  filters  are  shown  in  Figures 
45a  and  b.  In  Figure  45a  the  calculated  extinctions  in  the  4-p  region  are  clearly 
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Figure  44.  Calculated  vs  the  Measured  "Effec- 
tive  Extinction  Coefficients"  for  the  Cases  of 
Onshore  Winds  of  Moderate  Intensity,  Using  the 
Maritime  Aerosol  Model:  a.  3.  4  to  4,  2  ju, 
b.  7.  5)  to  11.3  p.  The  dashed  line  is  a  simple 
least -squares  fit  through  the  origin  of  the  cal¬ 
culated  to  the  measured  data 
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Figure  4G.  Calculated  vs  Measured  "Effec¬ 
tive  Extinction  Co.  fficicnts"  for  the  Cases 
of  Offshore  Winds,  Using  the  Rural  Aerosol 
Model:  a,  3,4  to  4.2;*,  b.  7.9  to  11.3^ 
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too  large,  by  almost  a  factor  of  2  for  the  high  extinction  eases.  For  the  10 -jt 
filter  shown  in  Figure  45b,  the  slope  of  the  regression  line  is  only  slightly  greater 
than  that  in  Figure  44l>,  where  the  proper  aerosol  model  is  used,  and  is  the  same 
as  in  Figure  43,  where  aerosol  extinction  is  relatively  unimportant.  The  scatter 
of  points  in  both  Figures  45a  and  b  is  double  that  in  Figures  44a  and  b  respectively. 

Since  the  maritime  aerosol  model  is  inappropriate  for  these  cases  for  which 
the  wind  blows  off  the  land  (at  least  for-  the  shorter  wavelengths),  these  cases  were 
rerun  using  the  rural  aerosol  model  (and  adjusting  B  in  Eq.  (34)  so  that  LOW  THAN 
returns  the  same  calculated  extinction  for  filter  1  as  was  measured).  These 
results  are  shown  in  Figui  es  4(>a  and  b.  In  Figure  4(iu,  the  calculated  extinction 
in  the  4-g  region  are  now  too  low,  again  by  a  factor  of  almost  2  in  the  high  extinc¬ 
tion  oases.  In  Figure  4(ib,  the  slope  of  the  regression  line  has  been  reduced  to 
slightly  less  than  1.0,  but  it  is  still  not  significantly  different  from  1.0,  The 
scatter  of  these  points  using  the  rural  model  is  less  than  those  using  the  maritime 
model  in  about  the  same  proportions  as  the  reduction  of  the  slopes  of  the  regres¬ 
sion  lines. 

The  conclusions  that  can  be  drawn  from  these  data  are  as  follows:  in  the  4-/i 
region,  the  maritime  aerosol  model  provides  a  reasonably  accurate  description 
of  open  ocean,  moderate  wind-speed  conditions.  For  air  masses  originating  over 
land,  the  maritime  model  gives  far  too  much  extinction.  The  rural  model  is  not 
appropriate  for  the  offshore  wind  cases  either,  probably  because  as  the  wind  blows 
over  the  short  stretch  of  water  it  generates  sea  spray  and  picks  up  some  marine- 
type  aerosols.  For  the  cases  of  offshore  winds  the  most  appropriate  model  is 
some  average  of  the  maritime  and  the  rural  models. 

In  the  10-g  region,  aerosol  extinction  is  less  important  than  in  the  4-n  region. 
So  that  the  choice  of  the  aerosol  model  is  less  critical.  Again  the  maritime  model 
gives  an  accurate  description  of  an  open  ocean,  moderate  wind-speed  condition. 
However,  even  in  situations  where  an  inappropriate  aerosol  model  is  used,  the 
results  may  not  be  greatly  in  error. 


12.  SENSI  TIVITY  TO  METEOROLOGICAL  INPUT  PARAMETERS 

In  this  section,  an  example  of  variations  in  transmittance,  calculated  from  the 
LOWTRAN  model,  due  to  uncertainties  in  meteorological  input  parameters  is 
presented.  It  is  given  to  illustrate  one  method  of  determining  the  sensitivity  of  the 
program  to  meteorological  conditions,  which  could  be  applied  by  LOWTRAN  users 
to  a  specific  atmospheric  problem,  A  more  definitive  study  in  this  area,  using  a 
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similar  approach  for  electro-optical  systems  application,  has  been  carried  out  by 
83 

Snyder  of  the  Naval  Oceans  Systems  Center. 

In  general,  the  transmittance,  calculated  from  LOWTRAN  for  an  atmos¬ 
pheric  path  at  a  given  wavenumber,  depends  on  an  array  of  meteorological 
input  parameters,  x.. 

~k  =  7(xl-  •  '  Xi . XN’  rk*  (35) 


The  N-parameters,  x.,  correspond  to  temperature,  pressure,  molecular  absorber 
amounts,  aerosol  type  and  amounts,  meteorological  range,  path  length,  etc. 
Assuming  that  the  variations  in  the  input  parameters.  Ax.,  are  completely 
independent,  the  valuation  in  the  total  transmittance  can  be  written  as 


*Tk  = 


1/2 


(3  6) 


Equation  (3  6)  defines  the  mis  variation  in  total  transmittance  at  the  wave- 
number,  for  independent  variations  in  the  meteorological  input  parametei's. 

It.  does  not  Include  LOWTRAN  model  uncertainties  such  as  the  band  model  approx¬ 
imation  for  molecular  absorption  or  the  assumption  of  homogeneous  layering  of 
the  atmosphere,  with  thermal  equilibrium  in  each  layer. 

Since  the  transmittance  is  usually  a  highly  non-linear  function  of  the  input 
parameters,  the  partial  derivatives,  (d7^/dxj,  of  the  transmittance  in  Eq.  (36) 
must  be  calculated  numerically,  starting  from  a  given  sot  of  input  conditions  and 
a  specific  atmospheric  path.  The  atmospheric  case  chosen  for  this  example  is  a 
horizontal  path  of  2  km  at  sea  level,  with  a  meteorological  range  of  4  km  for  the 
rural  aerosol  model,  and  the  1962  U.S,  Standard  atmospheric  model.  The  trans¬ 
mittance  for  this  case  from  500  to  3000  cm  *  is  shown  in  Figure  47. 

Tile  partial  derivatives  of  the  transmittance  wore  calculated  from  this  set  of 
starting  conditions  by  successive  runs  of  LOWTKAN  in  which  the  various  mete¬ 
orological  parameters  were  varied  one  at  a  time  between  500  and  3000  cm  The 
partial  derivatives  of  the  transmittance  were  stored  in  an  (NxM)  matrix,  where  N 
is  the  number  of  meteorological  parameters  varied  and  3VT  the  number  of  wave- 
number  points.  Figure  48  shows  tiie  partial  derivative  of  the  transmittance  with 
respect  to  the  water  vapor  density  for  this  path  and  Figure  49  the  derivative  in 
transmittance  with  respect  to  meteorological  range, 

83.  Snyder,  F.  P.  (1978;  The  Effects  of  Meteorological  Uncerta.nlies  on  Electro- 
Optical  Transmittance  Calculat  ionsTj  Naval  Oceans  Systems  Center. 

San  Diego,  California,  NOSC-TN-440. 
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Figure  47.  Total  Transmittance  vs  Wavenumber 
for  a  2-km  Path  at  Sea  Level  With  the  TT.  S, 
Standard  Atmosphere  Model  and  a  VIS  of  4  lcm 
for  the  Rural  Aerosol  Model 


Figure  48.  Partial  Derivative  of  the  Total 
Transmittance  for  the  Case  in  Figure  47  With 
Respect  to  the  Water  Vapor  Density 


13(1 


WAVENLNBER  (  CM-1  ) 


The  variation  in  the  total  transmittance  is  shown  in  Figure  50.  Uncertainties 
in  five  input  parameters  (pressure,  temperature,  meteorological  range,  water- 
vapor  density,  and  path  length)  were  assumed  for  this  atmospheric  path.  For  the 
values  used,  transmittances  varied  by  approximately  ±5  percent  in  the  window 
regions  (1000  and  2500  cm  S. 

13.  COMMENTS 

It  should  be  remembered  that  the  transmittance  and  radiance  values  obtained 
f,  i>m  l.OWTRAN  are  at  a  spectral  resolution  of  20  cm  ,  although  the  output  can 
Le  obtained  at  fi-om  *  intervals. 

The  program  will  round  off  input  frequencies  to  the  nearest  frequency  at  which 
spectral  data  are  given. 

The  overall  accuracy  in  transmittance,  which  this  technique  provides,  is  bet¬ 
ter  than  10  percent.  The  largest  errors  may  occur  til  the  distant  wings  of  strongly 
absorbing  bands  in  regions  which  such  bands  overlap  appreciably. 

The  reason  for  this  error  is  twofold.  First,  the  spectral  curves  in  Figures  19 
to  21,  Section  5  are  based  on  a  single  absorber  parameter  and  cannot  be  defined 
for  a  wide  range  of  atmospheric  paths  without  some  loss  in  accuracy. 

Secondly,  the  transmittance  in  the  window  regions  between  strong  bands  gen¬ 
erally  Lies  in  the  weak-line  approximation  region,  where  the  transmittance  is  a 
function  of  the  quantity  of  absorber  present  and  not  of  the  product  of  absorber 
amount  and  pressure.  The  one-dimensional  prediction  scheme  presented  in  this 
report  is  loss  accurate  for  such  conditions.  The  digitized  data  were  obtained  for 
conditions  representative  of  moderate  atmospheric  paths  and  will  tend  to  over¬ 
estimate  the  transmittance  for  very  long  paths  and  underestimate  the  transmittance 
for  very  short  paths,  in  the  spectral  regions  described  above. 

As  the  transmittance  approaches  1.0,  the  percentage  error  in  transmittance 
decreases  toward  zero  but  the  uncertainty  in  the  absorption  (or  radiance)  increases. 

Additional  constraints  on  both  the  validity  of  the  model  as  well  as  the  range  of 
applicability  are  introduced  for  atmospheric  radiance  calculations.  As  mentioned 
above  the  atmospheric  radiance  becomes  less  accurate  for  very  short  paths.  In 
addition,  the  radiance  calculations  assume  local  thermodynamic  equilibrium  exists 
in  each  layer  of  the  model  atmospheres.  This  assumption  will  break  down  fur- 
radiance  calculations  in  the  upper  atmosphere.  Therefore,  because  of  the  limita¬ 
tions  in  the  I.OWTKAN  model  for  short  paths  (or  small  absorber  amounts)  and 
deviations  from  thermal  equilibrium  (both  conditions  which  occur  in  the  upper 
atmosphere)  it  is  recommended  that  the  UOWTRAN  radiance  calculations  be  re¬ 
stricted  to  altitudes  below  40  km. 
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For  the  shorter  wavelengths  (<5  /urn),  scattered  solar  radiati  1  becomes  an 
important  source  of  background  radiation.  Since  this  is  not  included  in  the 
LOWTRAN  model  at  the  present  time,  radiance  calculations  at  the  shorter  wave¬ 
lengths  with  a  sunlit  atmosphere  should  be  made  with  caution.  A  single  scattering 

solar-radiance  code  (SPOT)  for  plane-parallel  geometry  has  been  developed  by 
84 

Lampley  and  Blattner.  This  code  uses  LOWTRAN  4  for  trie  atmospheric  atten¬ 
uation  of  the  solar  flux. 

Because  of  the  nature  of  the  program  —  which  uses  a  layered  atmosphere  — 
errors  can  be  introduced  into  the  refraction  calculation,  since  we  assume  each 
layer  to  have  a  mean  refractive  index  associated  with  it.  This  is  particularly  true 
for  a  long  path  in  one  layer  near  ground  level  where  one  would  expect  refraction 
to  be  a  maximum;  but  in  fact,  for  such  a  condition  the  program  may  indicate  no 
refraction  at  all.  If  problems  like  these  are  encountered,  the  number  of  levels 
must  be  increased  in  the  altitude  region  of  interest. 

An  additional  note  should  be  made  here  on  the  calculation  of  transmittance. 
Although  the  code  will  calculate  total  transmittance  for  a  given  atmospheric  path 
in  either  mode  of  program  execution,  the  time  is  increased  by  a  factor  of  N  in  the 
radiance  mode,  where  N  is  the  number  of  atmospheric  layers  along  a  given  path. 


84.  Lampley,  C.M.,  and  Blattner,  W.G.M.  (1978)  B-O  Sensor  Signal  Recognition 
Simulation:  Computer  Code  Spot  1,  Atmospheric  Sciences  Laboratory, 

White  Sands,  NM,  Report  RRA  -T7809. 
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Appendix  A 


Listing  of  Program 


A  listing  of  the  Fortran  program  LOWTRAN  5  (PROGRAM  LOW EM)  is  given 
in  Table  A1  together  with  the  19  subroutines,  as  described  in  Section  7  and  sum¬ 
marized  in  Table  A2.  A  definition  of  symbols  used  in  the  main  program  is  given 
in  Appendix  B.  A  segmented  loader  map  of  the  LOWl'RAN  5  code,  from  the 
AFGL  CDC  (1600,  is  listed  in  Appendix  C.  An  additional  subroutine  (DRYSTR), 
used  to  generate  "dry"  stratospheric  water  vapor  profiles  is  described  in 
Appendix  E, 
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PROG  PAH  LOWEM(  IN»UT=1?B  , OU TFU T- 1 28 , TAP  E 6= OUTPUT  ,  TAPE  7-64) 


LOWTRAN  1  NOV  7Q 

authors 

F  .  X  *  KN  F  I  7V  s 

5.  p.  settle 

L .  ...  AORPU 
J.  H*  ChC  THYNO  J  P. 

J.F.A,  ^EIPY 
W.  C.  GALLERY 
R.  W*  NN 
R.  A.  **C Cl  AT CHET 

PROGRAM  LOWTRAN  CALCULATES  THE  TRANSMITTANCE 
OF  THE  ATMOSPHERE 

FROM  35  *  CM-i  TO  40000  CM- 1  <0.25  TO  28,  57  MICRONS)  AT  2  u  CM-i 
SPECTRAL  RESOLUTION  CN  A  _INFAR  WAVENUHFE  R  SCALE. 

REFRACTION  ANT  EARTH  CURVATURE  EFFECTS  ARE  INCLUDED.  AT MOSPHE REL OH 
IS  L  A  YE RFC  IN  ONE  KM.  INTIRVALS  BETWEEN  0  ANO  25  KM.  ,  5  KM.  INTER-LOW 
VALS  TO  5'  KM.,  A  TWENTY  < M .  INTERVAL  TO  TO  KM.,  AND  A  THIRTY  KH •  LOW 
INTERVAL  TC  100  KM.  LOW 

**♦*¥******•.¥  4 

THE  FOLLOWING  CARDS  SHOULD  PF  KEYPUNCHED  Ef  THE  USER 
AND  M Al Lcn  TO!  r  .  X  ,  K  NE  I  ZvS  ,  AF  GL/OF  I ,  HA  NSC  CM  AFB,KARS  01731 
THE  CAROS  WILL  QF  USF*  TO  UFDATE  THE  A F GL  MALINC  LIST 
AND  FOR  NOTIFICATION  TO  THE  USER  OF  ERRORS  IK  THE  CODE 


AND/OR  RADIANCE 


LOW 

*LOW 

LOW 

LOW 

LOW 

LOW 

LOW 

LOW 

LOW 

LOW 

LOW 

LOW- 

LOW 

LOW 

LOW 

LOW 

LOW 

LOW 


LOW 
LOW 
LOW 
LOW 
LOW 
LOW 
LOW 
LOW 
LOW 
LOW 
LOW 
LOW 
LOW 
LOW 
LOW 
LOW 
LOW 
LOW 

3,217, FlO. 3)  LOW 
FCRHAT(7F10.T)  LOW 
FGRMAT  (7F1 0,3 )  LOW 
F  CRM  A  T  ( 13 )  LOW 

LOW 

MODE  L=  1  ,  ? »  3  ,4  ,  r>  OR  5  PELEITS  ONE  CF  THE  FOLLOWING  MODEL  ATMOSPHt  RELO  W 

TPOPICAL ,M1Dl ATTTjnr  ^UhM£ P, M IDL AT ITUOF  H  INT E R, S Ln A RC TI O  SUMMER,  LOW 

SUBARCTIC  WIntpTjOR  T>Jt  196?  U.S,  STANDARD  FESFECTIVELt  LOW 

MODE  L  =0  FOR  HCRT7,  path  WHEN  METEOROL .  CATA  USEC \ INSTEAD  OF  CASC  2L0W 
PEAD  lU.PMP)  .T(PEG  C)  ,PEM  FT  .TEMP  (CFG  C)  ,XREL  HUHICITY,H2C  0ENSITICW 
(GM.M-7)  ,  O  7  DENSITY(GM,M-3)  ,  RANGb'(KM)  WITH  FORMAT  A  2  9«  LOW 

MOO  E  L  =  7  WHFN  NEW  v,0DFL  ATM  OSPHE  RE  ( E.  G.  RACIOSCNCE  0ATA)  USEO.  LOW 

DATA  CAPrS  A°  c  Pr  A  C  IN  BET  WFE  N  CARPS  1  AND  2,  A  N  C  SHOULD  CON T A  IN \  LOW 
ALTITUDE <KM.)  .TRFSSUPE, TEMP, CEW  P7.TFMP,REL.  FUWiriTY,H20  CENSlTT,LOW 
07  DFNPI TV , AP FQ^OL  NO  DENSITY  ,VIS1  ,  IH  A 1 , ISEAJ  ,IVUL1  FOFMATLOW 

ATS  NS  MDL  r07  PFTAILS.  LOW 

NOTE  TH6t  fiTJ.ro  TEW  PT.  T  F  HP  ,  OR  Rtl.  HUMIDITY  CAN  FE  USEO.  LOW 

LOW 

APf  USf n  TO  CHANGE  TEMP,H20,  AND  03  HTIlLCf  PROFILES.  LOW 


<USE  COLUMNS  21  TO  7?) 
L QWT k  n®  mE 

LOWTE  COMPANY 
1.0  WT  c  A  DOPE  SS 


»  ** *♦»*  4 

PROGRAM  ACTIVATE*  BY  SUBMISSION  OF  FOUR  CARD  SEQUENCE  AS  FOLLOWS 

CARD  1  MOOS l,  IHA7-  ,IType,uEN,JP, IW , Ml , M2 , K3 , ML , I  EMI SS ,RO , TBOUNO, 
1ISE4SN, IVULCN, VIS 

FORMAT  (1113, 2F1Q. 

CARD  2  HI, H2, ANGLE, RANGE, 3ETA 
CARD  3  VI,  V? i  DV 
CARD  4  IVY 


10 

2G 

30 

AO 

50 

60 

70 

eo 

90 
100 
no 
1  20 
130 
140 
15(1 

ieo 

1 7C 
180 
190 
200 
Z10 
220 
230 
240 
250 
c€C 
270 
2  8  0 
290 
3  u  C 
310 
320 
3  30 

3  4  C 
350 
360 
270 
380 
290 
4C0 

4  1  C 
420 
430 
440 
450 
460 

4  7s. 
480 
490 
500 
510 
520 

5  3u 
540 
EF0 
560 
570 
560 
590 

6  0  0 


Table  A  1 


Listing  of  Fortran  Code  LOWTRAN  5  (Cent.) 


c 

IEHI  SS=  0=TPANSH  ISSION  MODE  /  IEHISS=1  =  EMIS$ICI'.  NCCE 

LOW 

€10 

c 

T BOUND  s TEMPER AT  UP F  OF  *  ft  FT  H  IN  DEGREES  KELVIN 

LON 

620 

c 

IF  T90UNC  *  7E*0,  ASSUMES  AIR  TEMPERATURE  OF  WODfcL  ATMOS. 

LON 

630 

c 

* 

LON 

640 

c 

IF  I  HA7E  =  A  NO  AiRJSOL  EXTINCTION  IS  COMPUTEO 

LON 

65G 

CCG 

VIS  PARAMETER  ON  ~  flR  D  1  Ot/FRRIPES  DEFAULT  I H  A7E  VALUE 

LON 

660 

ccc 

NOTE  EXPAKSICF  OF  THfi  7E  PARAMETER 

LON 

6  70 

I H A  7  E  S1  RIJRAL*2  3KH 

LON 

6  6  C 

c 

IHA2E=?  RURAL-  F<M 

LON 

6  9  0 

c 

IHA7FS3  MARITIME -73  KH 

LOW 

700 

c 

IHA?£=4  MAPI!  TMF-ckm 

LON 

710 

c 

IHA7E=5  UPOftN-^KM 

LCH 

720 

c 

IHA  ?£*6  TPOFOSPHTRIC-^OKH 

LON 

7  30 

c 

IHA  ZE^T  USER  DEFINED 

LON 

7  LU 

c 

THAZE-8  FOGl  -  DEFAULT  VISIBILITY  =0.2KM 

LOW 

750 

c 

IHAZE=9  FOG?  -  OEFftULT  VISIPILITY  =D.5KM 

LOW 

760 

c 

VISIBILITY  PROFILES  (NEH  PARAMETER-ISEASN) 

LOW 

770 

c 

ISEASN=0  DEFAULTS  TO  SEASON  OF  HODEL 

LOW 

7  8u 

c 

ISEASN=1  SPPING-SJMMEP 

LOW 

790 

c 

ISEASN=?  F6I.L-WIVTFR 

LOW 

80G 

c 

NEW  PARAMETER  “  IVULCN 

LO  H 

«10 

c 

i o- 3r kn  aerosol  type/vis  profile 

LOW 

6  20 

c 

I VULC  N=0  TEFAULT  TO  STRATOSPHERIC  BACKGROUNC 

LON 

030 

c 

I VU  LC  N= 1  STRATOSPHERIC  QlCKGROLNC 

LOW 

0  40 

c 

I VU ( GN- 2  nr.tr  VOLCANIC  TY PE /MOCE S A TE  VOLCANIC  FKCFJLE 

LOW 

e  so 

c 

IV  ULC  N=  t  TPCSH  VILCANIC  lYpp/HIGP  VOLCANIC  PROFILE 

LON 

860 

c 

ivui cn=  4  ar-Er  volcanic  ttpe/high  volcanic  profile 

LOW 

0  70 

c 

IVULC  N=  P  FPFSH  VDLCANIC  f  YFE/HOO  ERATE  VOLCANIC  PROFILE 

LOW 

8  80 

c 

LOW 

«90 

c 

ITYPFsi t  ?  OR  7  INDICATES  1  HE  TYPE  OF  A  TMCSPMfR IC  PATH 

LOW 

900 

c 

ITYPE  =  ? , VERTICAL  0  °  SLANT  PATH  TO  SPACE 

LOH 

9ifl 

c 

IT  YPE  =2,  VEPTICAi.  0°  SLANT  PATH  BETH  FEN  ThO  ALTITUDES 

LOW 

920 

V 

ITYPF=1,  C0FPESP0NC3  TO  A  HCRI?0NTAL  (CONSTANT  PRESSURE)  PATH 

LOH 

5  30 

c 

LCH 

9  40 

c 

Hl=  OBSERVE  R  ALTITUDE  (KM) 

LOW 

EEU 

c 

H7=S  OURCf  ALT ITUPF  (KM) 

LOH 

560 

c 

ANGIF=  7ENITH  ANGLE  »T  HI  (DEGREES) 

LOW 

570 

c 

RANGEsPATH  LENGTH  (KM) 

LOW 

900 

c 

9E  T  A  =  E A  PTH  fFNTRE  ANGLE 

LOW 

5  90 

r 

VIS  =  VISUAL  rang?  AT  SEA  LEVEL  (KM) 

LOH 

10  00 

c 

(IF  ITYOFrl  RF  An  -1!  A  NO  RANGE!  IF  ITYPC*’  FEAC  HI  Ant  ANGLE. 

LOW 

1010 

c 

IF  JT  Y  PE  =  £  =*E  A  0  Hi  ANO  TW3  OTHFR  PARAMETERS  E.G.  H?  AND  ANGLE) 

LO)- 

1020 

c 

LON 

10  30 

c 

V1=IMITIAL  FRFOUFVCY  (WAV:  NUM  PE  R  CM-1  )  INTEGER  VALLE 

LON 

1  C  40 

c 

V2  =  F I  NA  L  FR  £CUcNCY  (WflVENUI  «ER  CM-1  )  INTEGER  VALUE 

LOH 

1050 

c 

rv=  FRc0UcNrv  INTF^VAlS  AT  WHICH  TRANSMITTANCE  IS  PRINTED 

LCH 

1060 

c 

NOTE  OV  MUST  3c  A  MULTIPLE  OF  5  C*-l 

LOW 

10  70 

c 

LOW 

1160 

c 

lTT  =  n  1  u  tS''  04  1 B  .  =  1  FO<  NEH  VI  ,V?,DV  ONLY  ,  =5  Tc  CONTINUE 

PAT  ALOW 

1050 

c 

IXY=  *  FOP  HFW  CAcn  >  ONLY,  -A  FOR  NEW  CARO  I  ONLY. 

LOW 

1100 

c 

**  * 

•LOW 

11IJ 

COMMON  /r  A=»P1/  MOTEL  ,  IHflZ£  ,  IT  YPE, LEN, JP,  I  K,  M  l ,  M  ?  ,  m  3  ,  ML  ♦  I  EMI  S  5  » 

RO 

LOW 

11  20 

1  ,  TBOUNO,  ISCA SN, I VU_ CN , VI3 

LOH 

1 1  30 

COMMON  /rfl*r;»/  Ml , , A NGLr ,PA NGE , PE TA , HMI N, R E 

LON 

11  40 

COMMON  /CADr3/  V  1 ,  VC  ,  1 V  ,  A  V  W  ,  CO  ,  C  H  ,  W  ( 1  r> )  ,  E  ( 1  ?  )  ,C  A  ,  1 

LOW 

1150 

COMMON  /CNTPL/  l  CN  ST  ,  KH  A<,  M  ,  I J  ,J  i  ,J  2  ,  J  M  IN  >JE  XTRA  ,  1 1  ,  IKH  A  X,  NLL, 

NFi 

LON 

J.lhO 

1 , 1 F I  NO , NL ,  TKLO 

LOW 

11  70 

COMMON  /Mf’ATA/  7(^4)  ,P(7,34),T  (7,34) ,WH(7,34)  ,WO(7,34) 

LON 

12  ec 

*  ,  SEASN  (  7)  *  VULCN(r> )  ,  V^n  (9)  , H7 C 1 5 1 . HMIX ( 74 ) 

LOW 

1  1  90 

COMMON  RE  L  M  L‘M  (  T4  )  ,  HS  T  OR  (  34  )  , EH  ( 1 5  ,  *4)  , I CH ( 4)  ,  VH  ( IS)  ,TY  (  1  5) 

LOW 

12  00 

! 


Table  7M.  Listing  of  Fortran  Code  LOWTRAN  5  (Cont.  ) 


COMMON  WLAy  C»4fi5)  ,WpATH(5e,i5>  ,T8PY<  68) 

LOM 

1  2  10 

COMMON  APSC (4,40) T  r*TC( 4,4  0) |V*2 14  0) 

LOW 

3  2  20 

ixy=o 

LOM 

1  2  30 

call  Mm  a 

LOW 

1  240 

KMAX=15 

LOW 

1250 

PI=2.0*A  SIN  <1.0 

COM 

1260 

CA= PI/1 00. 

LOW 

12  70 

10 

CONTINUE 

LOM 

1280 

RE-6371, Z' 

LOW 

1290 

IFINr=0 

LOW 

1300 

JP  NE  «  SUC  c 3P  PPT  NT 

LOW 

1310 

RE  AC  105,  MOfEL, THA7E v ITYD^,LEN,JF ,IM,M1,M2 ,H3,HL,IEHISS,R0, 

TOCLNCLOW 

1320 

1 

. ,  ISEASN,  IVULPf,  V  IS 

LOM 

1330 

IEMISS=  “^TRANSMISSION  MODE  /  JEM I  S S  =  l=  E MISS  I ON  MOCE 

LuM 

1340 

IF  (ILMISS.FO. 1)  P  PI  NT  11J 

LOW 

1350 

If  (IeNISS. FQ, 0)  PRINT  US 

LOW 

1360 

Lc.NST  =  LEN 

LOW 

1370 

PRINT  1«5,  PCCEL,IHA7- ,ITYPF,LFN,JP,IM,M1,H2,M3,ML»I£MISS,R0 

,T6QUNL0N 

1300 

lP,ISeASN,lVULfN,VTS 

LOW 

1390 

15 

N- MODEL 

LOW 

1400 

I F  €  (M.EQ,  ’.CP.  M,  FO.j)  .AND,  ISEASN.  E  0.0)  IStASN=? 

LOW 

1410 

IF  (VIS.LF .n. 0. AND, IMA Z  E • 5  T ,0)  VI S= V5B ( IH AZ E > 

LOW 

1420 

1CH( 1) =  THA7E 

LOW 

1430 

2CH(?)«6 

LOW 

14  4  0 

IC  H  ( ? )  =q+IVlJLCN 

LOM 

1450 

ICHCO-15 

LOW 

1460 

ir  (ICH(l).LE,  0)  T  PH  ( t )  =1 

LOM 

1470 

IF  <ICH<  .LF  .P)  rrH(3)=lO 

LOM 

1480 

IF  (MODEL .  EO.  1 )  P:=6*76,3* 

LOW 

J.4  90 

IF  (MOP-  rL  ,  i  T.  4)  =  635 6, 9t 

LOW 

15  00 

IF  (MODEL  ,EC.C)  ?Esf>3r6.91 

LOW 

1510 

IF  (IHATR.Nf.7)  r-n  TO  20 

LOW 

1520 

NtAi*  2l»»J,  (HUWMY  ,;XTr(i,l)  ,  A8SC(1  ,  I)  ,  I^1>A0) 

LOW 

IF  30 

2Q 

IF  (RO.  *5T ,  C  .  C  )  PF=RO 

LOW 

1540 

IF  (MOO^L .EC. ’.PNPtlM.NE.O )  GO  TO  35 

LOW 

1550 

If  UXY'GT.  7)  GO  TO  *5 

LOW 

1560 

IF  (MOO  EL. TO. 0)  GO  TO  35 

LOW 

1570 

?5 

REAP  1?0,  M1,P?»ASGLF  »RANS  E ,9£T  A 

LOW 

15  8  0 

PRINT  1  q5 1  Hi, W^AN'-LF, RANGE, BETA 

LOW 

1  5  90 

Xl  =  FE*Hi 

LOW 

ieoo 

II  (ITVOE.CQ,  1)  fo  TO  40 

LOW 

ic  id 

IF  (ITYor.FC.l)  ^  TO  65 

LOW 

1620 

X2  =  RE  +  H? 

LOW 

le  30 

IF  (PANGF.  t  G.  C,  >  ‘>0  TO  59 

LOW 

16  4  G 

PRINT  195,  H,H?fANGL~, RANGE, BETA 

LOW 

1650 

If  (H2 . FO. P  ,C .AND. ANGLE .N? . P. 0)  GO  To  30 

LOW 

1660 

ANGLE  -  ACC'S  t  C,  5*  (  (H7-H1)  Ml ,  +A2/X1) /RANGE- RANGE/ X 1) ) /CA 

LOW 

1670 

GO  TO  60 

LOW 

16  80 

30 

X 2- SORT ( ( XI /RANG *4  RANGE /XI* ?• 0*COS (ANGLE* CA) )*X1* RANGE) 

LOW 

1690 

H2=  X2-PF 

LOW 

1700 

CO  TO  FT 

LOW 

1  ?  10 

CONTIND" 

LOW 

17  20 

IF  (ML*Lr.F)  ML  - 1 

LOW 

1730 

CALL  NSHHl 

LOW 

1740 

IM  =  0 

LOW 

1750 

IF  (MOO EL  «  F  C*  ()  GO  to  65 

LOW 

1760 

NL.=  ml 

LOW 

17  70 

NOT  F  TM  AT  7  ( I  >  NAY  N  CT  CORRESFOhC  TO  THE  VALUFS  GIVEN  FOR  STANOARCLON 

i7eo 

MODEL  AT*0S“HERcS 

LOW 

1790 

IF  (IXY . GT, 2)  GO  T0  6 c 

LOW 

teoo 

IPO 


able  Al.  Listing  of  Fortran  Code  LOWTKAN  5  (Cent. ) 


70 


GO  TO  LOW 

4 0  IF  < R ANGP  ,  G  T ,  0 »  0  )  GO  TO  LOW 

IF  <H2.GT  .0*0  *  ftwr.  H2.LT.Hi  )  IFINOl  LOW 

GO  TO  65  LOW 

45  IT¥PE=?  LOW 

6ETA=  ACOS(0.5*  (RANGE  GRANGE/  <Xl*X2>  -X2 / X 1- XI / X 2)  >  /CA  LOW 

50  IF  (EETa. EQ»0. >  GO  TO  55  LOW 

IFINCsl  LOW 

BfTsCA*  ofTfl  LOW 

X2-RE+H2  LOW 

ANGLFiATAN(Xr**STN(BFT)  / (X?* COS (8ET ) -XI  )  )/CA  LOW 

RANGF  =  X’J»SIN(«ET)/SIN  {ANG-  E*CA]  •  ow 

BET  =  PET0  LOW 

GO  TO  65  LOW 

55  RANGE=(  X2/*l)  *  *  *>- (  *1 N  (  A  NG.  E*C  A )  )  **2  LOW 

IF  (RANGE. GE,0.0>  Rfi  Nf«E“Xl  *  (SORT  (RANGE)  -A9S  ( COS  ( ANGI.  E*C  A ) )  }  LOW 

S3  IF  (ANGLF,  NE.  0..  OR.  ANGLE. NF. 180  .)  9ET=ASlMRAhGE*SlMANGLE*CA)/Xc)L0W 
If (ANGLE. IT.O . >  ANGl E = ANGl F +1 8 0 .  LOW 

IF  (RANGE  .IT. G.0>  PANGE=-RANGE  LOW 

BE  T  =  P&T /C  A  LOW 

PRINT  lq?,  AHGLr, RANGE,B£T  LOW 

65  CONTINUE  LOW 

IF  (IXY.LE.2)  ^E An  1?0.  Vl,V2»DV  LOW 

IF  (IXY.LE.?)  PRINT  120,  V1,V2,DV  LOW 

IF  <ITYPF.£0.i>  POINT  125,  HI, RANGE  LOW 

IF  (ITrPE.^O.?)  PRINT  133.  Hi, HE*  ANGLE  LCW 

IF  (ITYPE.EC.3)  Pp  INT  135,  HI, ANGLE  LOW 

IF  (MOTEL  .  FO,  0)  M=  »  LOW 

1Y  (V IS.GT.C.C)  PRINT  175,  VIS  LOW 

IF  (H.EO.l)  PRINT  14P  .  MODEL  LOW 

Ir  PWlNI  14b,  MODEL  LOW 

IF  <  M, FQ, ■*)  PRINT  ls0,  MODEL  LOW 

IF  (H.E0.4)  PRINT  156,  MODEL  LOW 

IF  (H.EQ.6)  PRINT  165,  MODEL  LOW 

IF  <M,EQ.6)  PRINT  160,  MODEL  LOW 

IF  (IHATF.EP.C)  PRINT  190  LOW 

IF  (IHA7F.Nt.JI  PRINT  170,  I  HA  7E  ,  H  7  ( I  H  A  ZE  > ,  V  IS  LOW 

IF  (ISE ASN. EO.O)  PRINT  205,  SEASN(1>  LOW 

IF  (ISEaFN.NE.O)  DRI  NT  205,  SE  ASN  ( ISE  A  S  N)  LOW 

IF  (IVULCN.EO.9i  J*lNT  210.  VULCN(l)  LOW 

IF  ( IVULCN. NE .0)  PRINT  ?1Q  ,  VUICM ( I VULFN)  LOW 

AVW=10000, /Vl  LOW 

ALAM=10000./V2  LCW 

PRINT  IBP,  VI  ,v?  ,nv,  ALAM,A  vw  LOW 

CALL  MPPOF  LOW 

CALL  GEO  LOW 

CALL  EX  a  PIN  LOW 

WRITE  a,lC51MODrL, IHA7E,ITYFE,LFN,JP, IM,Ml,M2,M3fML ,IEMISS,RO,  LOW 
1  T  BOUNP , ISF ASt, IVULPN, VIS  IDW 

WRITE  ( 7 , 1 20  )  HI, M-1, ANGLE. RANGE,  BETA  i  A 

WRITE(7 , 1201 VI ,V7, OV  LOW 

IF  CIENISS. FO.O)  GO  TO  75  LOW 

CALL  PATH  LOW 

PRINT  215  LOW 

PRINT  ??IJ  LOW 

75  CALL  TRANS  LOW 

REAP  1G  5  ,  TXY  LOW 

END  FILP  7  LOW 

JE  X  TRA  =  3  LOW 

IFINP-F  LOW 


1910 
1620 
lfl  70 

10  4  0 

18  50 
I8  60 
1870 
1680 
1850 
I960 
1910 
1920 
1930 
1^40 
1950 
i960 
1 5  7  G 
1980 
1550 
20  00 
2010 
20  20 
20  30 
20  40 
2050 
2060 

20  70 
2080 
2090 
2100 

21  10 
2120 
2130 
2140 
2150 
SifaO 
2170 
2160 
2190 
22  CO 
2-:  io 
22  20 
2230 
2240 
25  50 
2260 
2270 
2 ' 0  D 

22  90 

23  QC 
2310 
2-20 

23  30 
2340 
2350 
2  2  F  0 
2370 
22  00 
2390 

24  00 


l&i 


Table  Al.  Listing  of  Fortran  Code  LOW  THAN  5  (Cent.) 


PRINT  11',  IX* 

If  <IXV.EQ.  0)  GO  '0  95 

GO  TO  <8(1,10,85,  1C, 05)  ,  IX  V 

RE  4  0  120,  V1,V2,DV 

AVW=  1  0  000 . 2  VI 

ALAN;  10000.  /V? 

PRINT  180,  V1,V7,3V,  ALAH.AVW 
GO  TO  7  1) 

IF  (IEMISS.EG.il  P 4 1 fjt  no 
IF  IIFMISS.EO.O)  P  R I N T  115 
IF  (MOOEL.EO.O)  GO  TO  35 
GO  TO  2? 

STOP 


0  FORMAT  <T!»,8F11 .4)  LON 

5  FORMAT  1  III  2,  2F  1  0,  3,  2T3.F1  1 .3)  LON 

0  FORMAT  (R7H  1  PROGRAM  WILL  8F  EXECUTEO  IN  TME  EMISSION  MODE)  LON 

5  FORMAT  ( 01 H 1  PROGRAM  WILL  PE  EXEC  L  TEO  IN  TME  TRANSMISSION  MODE)  LON 

C  FORMAT  (7410.3)  LON 

5  FORMAT  (//10X.28H  HORIZONTAL  PATH,  ALTITUDE  =,F7.3,11H  KM, RANGE  «,L0N 

1FZ.3.JH  kM)  LOW 

0  FORMAT  (//ICX.SOH  SLANT  PATH  BETWEEN  ALTITUDES  Ml  AND  HZ  HHERE  HI  LON 
1=,F7.3,8H  KH  H?  =  ,F7,?,1BH  KM, ZENITH  ANGLE  =,F7,J,8H  OEGREES)  LOW 

5  FORMAT  (//10X,39H  SLANT  PATH  TO  SPACE  FROH  ALTITUDE  Ml  =  ,F7.  3.19H  LOW 
1KH,  7FNITH  ANGL"  p, FA. 3, ON  LEGREES)  LOW 

0  FORMAT  <2?0K,18H  MODEL  ATMOSPHERE  ,11,  UH>  TROFIPAL)  LOW 

5  FORMAT  (/Z0X.18H  MODEL  ATMOSPHERE  ,11,21Hz.  MIDlATITUDE  SUMMER)  LOW 

3  FORHAT  (/Z0X.18H  100EL  A  TM  0  SPHERE  ,I1,21H  =  MIDlATITUOE  WINTER}  LOW 

5  FORMAT  (/?0X,l«H  MOCEL  ATMOSPHERE  ,I1,Z1H  =  SUh-ARCTIC  SUMMER  )  LON 

0  FORMAT  C/ZP*,*8H  MODEL  ATMOSPHERE  ,I1,21H*  19G2  US  STANDARD  >  LOW 

5  FORMAT  (/Z0X,18H  MODEL  ATMOSPHERE  ,I1,21H  =  SUB-ARCTIC  WINTER  )  ION 

0  FORMAT  <2?0X,15H  MAZE  MODEL  ,  1 1  ,  3H  -  .AiJ.SH  V  IS'  ,  F  5  .  1  ,  Z.MK  M  )  L  0  H 
} JRMAT  (/?5X,13HH"7P  MOOEL  =  ,F5.i,29H  kM  VISUAL  RANGE  AT  SEA  LEVELOW 
ID  LOW 

0  FORMAT  ( / 1 0 x,  ?  1H  FREQUENCY  PANGE  Wl=  ,F7.1,13H  CH-1  TC  VZ=  ,F7.1,1L0N 
1GH  CM-1  FOR  OV  =,FG.1,9H  CM-l  (,46.?,3H  -  ,F5.Z,10H  MICRONS  >)  LON 
5  FORMAT  <10X,7F1(J.3)  LON 

0  FORMAT  { 22  (I  X,  39HAER0S0L  SCATTERING  NOT  COMPUTED,  IHAZE-0)  LON 

5  FORHAT  (  lOX.LH  H  1  =  ,A7,  3,6MKM,H2=,F  7.  3, 9MKN,  ANGLE*, F  t.L,13HGE  CM,  SALON 


INGE  » ,F?.?,8HkM,PETA=,F8,5) 

3  FORMAT  (LIFE,  5,247.  S)  ) 
j  FORMAT  </?0T, ion  S  F4  SON  z  ,A13) 

3  FORMAT  (/ZOX.’RH  VFPTrQAL  PROFILE  Af 'OSOL  MOCEL  * 
5  FORMAT  <1H1 ,4'X, ' JHPAPIANIE (NATTS/CM2-STER-XXXI ) 

3  format  oitx,i,7hfR(ch-i)  nvlmmicrcn)  per  cm-i 
1  INTEGRAL  TRAN 5 1 

ENO 


LON 

LON 

LON 

A1E)  LON 

LON 

PER  MICRON, 26HL0W 
LOW 
LOW 


n  n  n 


Table  A1 


Listing  of  Fortran  Code  LOWTRAN  5  (Cont.) 


SUBROUTINE  N'T  A 

MOT 

JO 

MOT 

20 

MODEL  ATMOS  CHE R:  OATC 

MDT 

30 

MDT 

40 

COMMON  /CA  RC1/  MODEL  ,  IHA7E,  TTYPE.LEN,  JP,IM,  Ml, M2  ,M3  ,Ml,  IE  MISS  ,SC 

MC  T 

SO 

1  fTBOljNO,ISEA^N|Ii/ULCN»VIS 

MOT 

60 

COMMON  /CARO?/  HI,  H2*  ANGL:  ,  RANGE  *  BETA, H  Hh,  RE 

MOT 

70 

COMMON  /C*RC3/  VI,  V?  , OV ,A)f  H  ,CO  ,CW  ,N  ( 15  >  ,E  (15 )  ,C  A  ,P1 

MOT 

ao 

COMMON  /CNTSL/  LENST ,XHAX, M,IJ, Jl, J2, JHIN ,  J£  XTRA  ,  It  ,  IKNA  X,  Nlt.,NPl 

MOT 

SG 

i,IFIND,NL,mO 

MOT 

100 

COMMON  /MOATS/  7  <  3  U)  ,  n  <  7  ,t  A )  ,  T  (7  ,  J4)  ,  M  H  (7  ,  JA  )  ,  MC  (  7,  3A) 

MDT 

1 10 

1  ,  SEASN  (  2)  ,  VUlCNfP)  ,  V5S  <91  ,HZ<15)  ,HMIX<3<.) 

MOT 

120 

COMMON  RELHCMtJt)  ,HST0R(3U)  ,E H  (1 5  , 3t )  ,  I CM  (4 )  ,  VH  ( 15  )  ,1  X  (  1  5  ) 

MDT 

130 

COMMON  WLAY  (39,15)  ,WPATH(i8  ,15)  ,  TBBY(  68) 

MDT 

140 

COMMON  APSC(N,I.O»  ,FXTr(*,MI>  ,VX2  (40) 

MOT 

150 

OATA  I A  TH  /  t/,N.  /  ’A/ 

MOT 

160 

CATS'  7.  <  I)  ,  1  =  1  ,  "*4  )  / 

MDT 

170 

1  0,,  1.,  ?.,  },,  4,,  5,,  6.,  7c, 

8., 

MOT 

100 

2  0.,  10.,  11.,  12.,  13.,  14,,  15,,  16., 

17.  , 

MOT 

ISO 

3  18.,  1°.,  ?<],  ,  21.,  22.,  2?.,  24.,  25., 

3  0  • , 

MC  T 

200 

4  35.,  40.,  45.,  50  ,,  70.,  100.  ,99999./ 

MDT 

210 

DAT  A  (  P*1  ,  I)  ,  1*1,  34)  / 

MOT 

2  20 

1 

i0  C13E+C?, 

9,0476+02* 

8.050E+02, 

7  •  IS  0E+-Q2 , 

6. 330E+U2, 

5 . 59  3E *0  2 ,HDT 

230 

2 

4.9206 ♦OS, 

4 • 3?QC  +0  2, 

3*  7  8  0E+02, 

3.  29  0E+02, 

2*  86UE  +  02, 

2 . 470E+0  2 ,MD  T 

240 

3 

2  •  130F+02  , 

1.3206+0  2, 

1.560E  +02  * 

1.320E+02, 

1. 1106+02, 

9. 37 OE+Ol, MOT 

2  50 

4 

7.690E+P1, 

6,  660: ♦} 1 , 

5*  3  5  OE  +  01 , 

4*8006+01, 

4*  0*tE  +01  , 

3.50  OE +01, MDT 

260 

6 

3 , 0(1  OF  *01 , 

2.570F+01, 

1.220E+01, 

6.00  06+ 00 , 

3.  05QE  +  00  , 

1.590E+00 ,HUT 

2  70 

b 

8* 540? -01  , 

5*7905-0 

3.3  0CE-04, 

0.  / 

MDT 

2  80 

O  AT  A  (  D(2,I) 

, 1=1*  34) / 

MDT 

2  90 

1 

1*  01 3E  +  0*, 

Q, 0206+02, 

6.02QE  +  02, 

7.10  0E+  02, 

6.280E+02, 

5 .5  4  OE  +  Q  2  ,MO  T 

300 

2 

4.  070^+02, 

4  ■  26  0P  +  0  2 , 

3.720E+02, 

7.240E+U2, 

2*8106+02, 

2. 4  3  0E  +  0  2  ,MOT 

310 

i 

?.  090c+02  ♦ 

1 . 70 06  +0  2, 

1.53CF+02, 

1.30  0E  +  02, 

1.110E+02, 

9e50 OE+Ol, MDT 

!20 

4 

6. 1 2QE  +  C 1  * 

6.95**p+0l, 

F.950E+C1, 

5.100E+01, 

4. 370E  +  01 , 

3.760E+01  ,MDT 

3  30 

5 

3. 2206+01, 

2 *7706+01, 

1.320E  +  01, 

6.520E+00 , 

3. 330E+00, 

1.760E+00, MDT 

340 

6 

p*51DE-01» 

6.710E-02, 

3,0  OCC-04, 

0.  / 

MDT 

350 

0  AT  M 

,1=1*  14) / 

MDT 

360 

1 

1.O10P+O-1  , 

0 . 97  3:  ♦  0  2 1 

7.897E+02, 

6.938E+02, 

6.  OfllE+OZ, 

5 . 31 3E  +  0  2  ,MD  T 

370 

2 

4  * 6276  +0  9 , 

4. 0166+-:  2, 

3.473E+02, 

2.992E+  02, 

2.  5E0E  +  O2 , 

2.199E+02.MDT 

380 

I 

1- 882^+02  , 

1.610- *02, 

1.378E+02, 

1.178E+02, 

J.0Q7E+02, 

8.  ElJE+Ol.MOT 

3  90 

4 

7.350E+01 , 

6. 2R06  +  01  , 

5.370E+01, 

4.580E+Q1, 

3.9106+01, 

3 , 39  OE  +  O  1  ,MDT 

400 

5 

2*  8606  +0 1 , 

?  •  4  OF  +0  1 , 

1*11  OE  +  Ol, 

5.  130E+00  , 

2. 530E+00 , 

1.290E+OO.MDT 

410 

6 

6  •  820F-01 , 

4. 6*06-"  2', 

3,0  C0E-04, 

0.  / 

MOT 

420 

OATA  (  P(4,  I) 

1  1  =  1  *  34)  / 

MDT 

420 

1 

i*  oior  +  o  3, 

8,9606+02* 

7.929E+02, 

7*  00  0  E  +  02, 

6,16  OE  +  02, 

5.410E+02,HOT 

440 

2 

4  •  7  3  0  E +02, 

4, 1306+02* 

3.590E+02, 

3.1076+02, 

2*67 7E +02, 

2.300E+02,MCT 

450 

3 

1, 977F  +  C?  , 

1.70054-:  2  , 

1.460E+02, 

l*250E+02 , 

1. 08CE+82, 

9. 260E+0 1,MDT 

460 

4 

7.  980E  +01 , 

6. 8605+01, 

5.390E+01, 

6.070E+01, 

4.360E+01, 

3.75 OE+Ol, MDT 

470 

5 

3, 2?7F ♦ 0  1 , 

?•  78  0: +0  1  « 

1 , 3  4PE  +  01 , 

6.610E+00 , 

3.40CE+00 , 

1 • 81 0E+0  OyMO T 

480 

6 

9  •  870E-01 , 

7. 07  06-02, 

3.0  OOE-04, 

0.  / 

MDT 

490 

0  AT  A  (  P  ( 5 ,  I ) 

,1=1,  34)/ 

MDT 

5  JO 

1 

1.  0 1 3P  ♦  0  3  , 

0.  870-  +0  2, 

7.  7  75E  +02, 

6.798E+32, 

5.932E+02, 

5, 158E  +  0  2, MDT 

510 

2 

4,  467E+0?, 

3.8636+02* 

3.3  O0F+O2, 

2.  829E  +  02  , 

2.418E+02, 

2  *  D67E  +  0  2 ,MDT 

520 

3 

1.7666+0?, 

1  *51 06*92  , 

1.7  9  IE  +  02, 

1. 1 0  3E  +  02  * 

6  ♦  4  3 1 F  4  0  i |  . 

8.058E+01.MCT 

530 

4 

6*0826+01  , 

5.  A79F+0  1* 

5,0 14E  +  01, 

4.  2776  +  01  , 

3*  64  7E  +  01  * 

3.109E+01.MDT 

5  4  0 

5 

2  •  f  49E  +  0  l  * 

r.  256r +01  * 

1 , 9  2  OE  +01  , 

4.7  01E  +  00 , 

2*  E43E+00, 

1 ,11  3E  +  0  0,HU  T 

560 

6 

5*7196 -Cl  , 

4  «  01  65  -?  2* 

2.3  0CE-C4, 

0.  / 

MOT 

560 

PA  TA (  °(h,I) 

,1=1,  34)  / 

MDT 

570 

1 

1.  013C+CT, 

?  «  9®  6: ♦ C  2  , 

7.35QE+02, 

7*0 12E+02 , 

6. 166E+02, 

5.  U05E+02.MDT 

580 

2 

4,  7226  4.  02, 

4 »  111*  + "2, 

3.  5  6ct  +  C  2 , 

3,  J6QE  +  92, 

?• 65lE  +02 » 

2. 270E  +  0  2, MDT 

59C 

3 

1  .U4DE  +  0?, 

1 .650c  +  n?f 

1.417E+02, 

1.  711E+02  , 

1.  035E  +  02, 

8,  650E  +  0  1,MCT 

600 

Table  A 1.  Listing  of  Fortran  Code  LOWTRAN  5  (Cont.  ) 


4  7 .5656*G 1,  6.467E+P1, 

5  2.972G401  •  ?.549E*C1  , 

6  7.  970E-O1  ,  5.5?0e-u2, 
DATA (  T < 1 , 1) , 1  =  1  *  34)  / 

1  3.0006*02,  2.940£*02, 

2  2.640E*0?»  2 . 570E  *0  2, 

3  2*  24QE402,  2.17064'>2, 

4  1.9906*02,  2.070E+02, 

5  2 . 19  OE*  0  2 ,  ? , 2105  *0  2 , 

6  2,7006*0?,  2*  l91f  *0  2, 
DATA*  T  C  2  » I)*TTlt  34)  / 

1  2,940E+0?,  2.9006*02, 

2  2,6106*02,  2  ♦  55  0C  *0  2, 

3  2.220F4Q2,  2,l60?40?, 

4  2*  16  OE*  02,  2. 17IJ**0  2, 

5  Z^OE+O?,  2.?4O«:+02, 

6  2,7606*02,  2.180E+02, 
D  AT  A  (  T { 1,  I>,  T=l,  34) / 

1  2,??2E*0?,  ?.6fl7E*02, 

2  2.4376*02,  2 .  377F  *0  2, 

3  2. 1876  +0?  ,  2.1026*02, 

4  2,1576*02,  2.1526+02, 

5  2,1526*02,  2  •  15?6  *0  2 , 

6  2,6576  *C2 »  2.307E+02, 
0 AT  A (  T(4,I),I=1,  74 ) / 

1  2.8706*0?,  2.8*0C*02, 

2  2,5306*0?,  2.4606+02, 

3  2,2506*02,  ?.250r*0?, 

4  2.2506*0?,  ?.?60F492, 

5  2.2G06+0?,  2,  28  06  *0  2, 
G  ?. 7706+02,  2.160E+02, 

0  AT  A  (  T  (6,  I),  I-i  »  74)/ 

1  2.571F+02,  2 «  59  IF  *0  2 , 

2  Z.341F4-02,  ?.273E*02, 

3  2,1726402,  2.172-140  2, 

4  2.1546+0?,  2.148^+03, 

5  2,1166402,  2.  11  26  4f)2, 

6  2.5936402,  2.457E  40  2, 
0A  T  A (  T(6,I),I  =  1,  34)/ 

1  2 • 06  IE ♦ 0? ,  ?.616c*02, 

2  2.4926402,  ? ,42  7r  40  2, 

3  2.1G6E+"?,  2,166:4:2, 

4  2.1666402,  2,166640?, 

5  2  •  2066  40? ,  ?.?  16E+02, 

6  2.  706E  402  ,  2.197640  ?, 
DATA (WHI1,I ),T=1 ,  34)/ 

1  1.900r+01,  1.7006401, 

2  0 .5006-01,  4. 7  0  OE “0 1 , 

3  6 . DOOE-O1,  1.800E-0 3, 

4  5,  0006-04  ,  4.  9006-0  4, 

5  6 .0006-04,  6.7006-0  4, 

6  6,  303F-re ,  i  ,4D0c-r  7 , 

PATA<WH(?,  I),  1=1  ,  74)  / 

1  1.400r+Cl,  9. 3006+ TC, 

2  6,1006 -b 1»  3,7CCc-:i, 

3  6.  OOOE-fT*,  1.8016-03, 

4  5.  0006-04,  4,^006  -0  4, 

5  6.  0006-04,  6 . 7  0  0  r -0  4, 

6  6*  3006-06,  1  ,4  0  OF.-  n  7  , 
DA  T  A ( HH  (  7  » I  ) ,  1= 1 ,  74 ) / 


5, 52 9E 401  , 

4.729E+01 , 

4.04TE.01,  3.467Et01,MOT 

610 

1.197E401, 

5.  746E+Q0  , 

2.  e71EtODt  1.491E.0 0,HDT 

620 

3,0  O0E-Q4, 

0,  / 

hot 

6  30 

MOT 

€40 

2.0  0  06  +  0  2  , 

2.8406+02, 

2.770E.02,  ?.70OE*O2,HDT 

660 

2.6  0  OE  4  0  2 , 

2.44  06402  , 

2.  370E+02,  2.3CIOE*02,HOT 

660 

2,1  0  CE  ♦  02, 

2.0406*02, 

1.97tE*02,  1. 95  0E  +  0  2  »MDT 

670 

2,  3  7  OE  ♦  0  2  , 

2.11  0<_402 , 

2.  150E  +  02,  2,170E.02,MOT 

660 

2. 5 2 OE *0 2, 

2.430E402, 

2.540E702,  2.650E.0 2,M0T 

690 

2.1 OOE402, 

2. 10  0E402/ 

MOT 

700 

MOT 

710 

2. 85  06*02, 

?. 79  06402, 

2.73OE«0?,  2rE70E»02tMDT 

720 

2.48  OE*  0  2, 

2.  42  0£4  02  , 

2.39OE*02,  2.  290E+0  2, MOT 

730 

2.16 OE  *02  , 

2.16  06402, 

2.1£CE<02,  2.16OE«02,MOT 

740 

2.  1  806  +  02  , 

2.19OE402, 

2*  20CE  ♦*£,  2.22  0E*02,MDT 

750 

2.3  4  OE*  0  2  , 

2. 4506+ 02 , 

2*  5C0E+02|  2.7C0E.D 2.MOT 

760 

2.1 OOE+C?, 

2.1006402/ 

MOT 

770 

MOT 

760 

2,6  5  ?E*  02  , 

2*617640’, 

2.557E+02,  2.497E»02,MDT 

790 

2.31  7E  +  02, 

2,2576402, 

2.S97E*D2,  ?.192E«02,MOT 

800 

2.1 776*02, 

2.1726+02, 

2.1E7E7D2,  2.162E-K) 2, MOT 

610 

2.1 5  2E *0  2 , 

2. 152E  +  02, 

2.152EO?,  2.152E«02,MOT 

6  20 

2.174E  +  02, 

2.  276E  +  0Z  , 

2.  432E  +  02,  2.5«5fc  +  02,MDT 

0  30 

2.1 026402, 

2. 1006+02/ 

MOT 

640 

MOT 

650 

2.7606402  , 

2.71  06  +  02  , 

?.660E*02,  2.600EK)2,HOT 

660 

2.3906402, 

2. 320E+02, 

2.  2  50E*02,  2.2E0E*02,MDT 

670 

2.2506402, 

2.Z50E402 , 

2.25CE+B2,  2. 250E*0 2, MOT 

8  60 

2.2506402, 

2.2506*02, 

2.  250E*02,  2.2S0E*02,MDT 

890 

2.3  506402, 

2.  47  0E  +  02, 

2.  620E  +  02,  2.  740E«0  2, MOT 

900 

2.1 006+02, 

2.10  06*02/ 

mdt 

510 

MOT 

520 

2.5596402, 

2,  5276*02  , 

2.  477E4  02,  2 . 40  9E  +0  2  i  HO  T 

930 

2. 2066402, 

2.1726*02, 

E.17PE*62,  2.  172E*02,MCT 

9  40 

2.172E+02, 

2,1726*02, 

2.1E6ET0E,  £•  1 6  0E*C  E *MD T 

950 

2.1416402, 

2. 136E+02, 

2.13DE»02,  2.124E»07,MDT 

960 

2.1  606  +  02, 

2.222E+02, 

2.  347E*02,  7.  470E»02,MDT 

9  70 

2.1  00E+02, 

2. 100E402/ 

MDT 

560 

MDT 

990 

2.751E+G2, 

2.6B7E  +  02, 

2.E22E+0J,  2.55?E«02,MDT 

1000 

2.362F+02, 

2.297E+02, 

2.232E»02,  2.1fc#E.07,MCT 

1010 

2. 1 66 E  +0Z  » 

?.156E*02, 

2.166E-t02,  2.166E*0  2, MOT 

1020 

2.1666+02  , 

2.1 766*02, 

2.1S6E402,  2.196E*02,M0T 

1030 

?.?65E4CZ, 

2.  3656*02, 

Z.534E-HJ2,  2.642E*OZ,MOT 

1040 

2.1 D0E+02 , 

2,10  0E+U2/ 

MOT 

105C 

HOT 

1060 

9.3  006+00  P 

4. 70  06*  00  , 

Z.JOCEiOO,  i.SOOETOO.MCT 

1070 

2 • 5  0  0E-Q1 » 

1*2  0  OE-  01, 

5.0B0E-O2,  1.700E-02.MDT 

1060 

1.0  006-03, 

7.600E-Q4, 

t,4  00F-04,  9.600E-I  4, MDT 

1C  50 

4.5  0  OE -04 . 

5  ,  1  ft  0  F  -  Ofc , 

9, JOnF-Ofc,  5,400E-04,MDT 

11  00 

3.600E-04, 

1.10  0E-04, 

4.300E-05,  1 »  90  0  E-0  5  *HO  T 

1110 

1.0  00E-09  , 

0.  / 

MDT 

1120 

MDT 

1130 

6.9  0  06+00  , 

3.30  06*00  , 

1.900c-t00,  i  .O00E+00>MOT 

1140 

2.1  00E-C1 , 

1.  2J0E-01, 

e.40C£-02,  2.  200E*02  ,MOT 

1150 

1.0  006-03, 

7.6006-04, 

fc,4  00E-04,  9.E00r-04,MClT 

1160 

4.500E-04 , 

5.100r-04, 

5.i0CE-04,  5.400E-04fMDT 

1170 

3,6006 ”04, 

1.  10  0E-04, 

4»394E-05,  1.900E-05,M01 

1160 

1.0  0  0E-O9, 

0.  / 

MOT 

1190 

MDT 

1200 

V3 
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4 

3_ 

Tf 

% 

1  3.S0QE+CC, 

2.50CE+0C, 

1.8  oce*on, 

1.2006*30 , 

e.6ocE-ot, 

3.  6Q0E-O l,MOT 

1210 

n 

Z  2, 1006-01, 

0.5006-02, 

3.5  OOC  *02, 

1. 6006-02, 

7. 500E-03, 

6.900E-0  3, HOT 

1220 

| 

3  6,  000E-03, 

1.800=-n3, 

1.00 OE-O 3, 

7.600E-04 , 

6o40CE-04| 

5 .6006-04, MOT 

1220 

*>.  O00E-04, 

4.900E-04, 

4,  5  0  0E-C4, 

5.100E-04, 

5.  101E- 04, 

5  *  40  OE-O  4 *HOT 

1240 

5  6. 0006-04  f 

6  •  70  OE  “f!4  , 

3.6  00E-04 , 

1.1006-  04  , 

4.  3  0  OE  -  05 , 

1 . 90  OE-Q  5*  HOT 

1250 

6  6. 300^-06, 

1.4005-07, 

1.0  00E-09, 

0,  / 

HOT 

1260 

OATA (KH(4, I> 

,1=1,  34)/ 

HOT 

1270 

1  9.  1C0E+0C  , 

6  .  0006*00, 

4,2  0  OE*  0  0 , 

2. 7  0  OE*  00 , 

1*  700E  +  00, 

1,00  OE*  0  0 , H  CT 

1260 

2  5.4006-01* 

2.9006-01, 

1.3  00E-01, 

4,2  OOE-02, 

1.500E-02, 

9,4  0  OE- 0  3 ,HOT 

1290 

i. 

3  6.00QE-0?, 

1  •  80 Qc -0  3 » 

1.0 OOE-03, 

7.6006-04 , 

6.400E-04, 

5. 60  OE- 0  4,HDT 

12  00 

A 

5.00QE-C4, 

4. 930E-0  4, 

4.5  Q0E-04, 

5. 100E-04, 

5.  10CE-04, 

5  ,4006-04, HOT 

1310 

5  6.0006-04, 

6.7Q0E-O4, 

3, 6006-04, 

1.1006-04, 

4.300E-05, 

1  *  90 OE-O  5 ,HOT 

1320 

6  6.300E-06, 

1.40  06-07, 

1.0  OQE-09, 

0.  / 

MOT 

1220 

DATA (WH(5, I 

, 1  =  1,  34)/ 

MOT 

1340 

J 

1  1 ,  2  0  OF  +  0  0  , 

1 .200E*00  , 

9.4  006-01, 

6.8006-01, 

4.  lOOE-Olt 

2. 0006-01, MOT 

1350 

2  9,8006-02* 

5  •  4  0  0"  -0  2 , 

1.1 0  06-02, 

8,4006-03, 

5*  5  0  OE*  02, 

3.  80  06-0  3, MOT 

1360 

-• 

3  2. 6006-03, 

1.800F-03, 

i.o  ooe-03, 

7.600E-04, 

6.400E-04, 

5.600E-04,HOT 

1270 

4  5.000E-f4, 

4,9006-04, 

4.5  00E-04, 

5, 100E-Q4 , 

E. 100E-04, 

5.400E-04,MDT 

1280 

5  6,0006-04, 

6.7G06-04, 

3.6  006-04, 

1.  1  006-04, 

4.  300E-05, 

1. 9006-05, MOT 

1390 

6  6 , 300E-06  * 

1*4006-37, 

1.0  00E-09, 

0.  / 

HOT 

1400 

DATA (WH(6,I) 

,1  =  1,  74)/ 

MOT 

14  10 

k 

1  5  . 9006*011* 

4.2006*00, 

2*9  0 OE* 00, 

1*  800E*  00  , 

1.  1  0  OE  ♦  0  0  , 

6. 40  0  E-0 1 , MOT 

14  2  0 

2  3#  8006 -01  * 

2  •100F-01, 

1*2  OOE-Ol, 

4.6QQE-Q2, 

l.OCOE-02, 

8. 20  OE-O  3 ,HOT 

1430 

3  3,7006-03, 

1.800E-0  3, 

e*400E-04, 

7.200E-04, 

E. 1 OCE-04 , 

5, 2006-04, MOT 

1440 

4  4.400E-04, 

4.4006-04, 

4,4  00E-O4, 

4,8006-04, 

5.20QE-04, 

5 . 70  OE-O  4 ,HDT 

1450 

5  6.100F-04, 

6,60  OF -04, 

3,8  OOE-04, 

1,6006-04, 

t,7-0  0E-05, 

3.  20  OE-O  5 , MOT 

1460 

6  1 , 2006-05* 

1.500E-07, 

1,0  0 OE- 09 , 

0.  / 

MOT 

1470 

OATA (HO  <1, 1) 

,1=1,  34)/ 

MOT 

1480 

1  5.b(J06-Q^, 

5.6006-05, 

5.4  00E-05, 

6,1006-05, 

4.700E-05, 

4, 5006-05, MOT 

1490 

2  4.300E-05, 

4,1006-05, 

3.9  0  0E-Q5, 

7,9006-05, 

3.90CE-05, 

4.10CE-0  5, MOT 

1500 

3  4.  3006-05  , 

4.5P0* -os , 

4.5  0 0E-u5 , 

4.7006-05, 

4. 700E-05, 

6«9U0F-0  5, MOT 

1510 

4  9.0006-05, 

1*40 OE -04, 

1.9006-04, 

2.4006-04, 

2.000T-04, 

3. 2006-04, MOT 

1520 

9  3, 40  OF -04, 

3 . 4^  0  E  “C  4 , 

2.4CCE-04, 

9. 2006-05, 

4.  1C0E-H5, 

1 . 30  OE-O  5 ,MCT 

1530 

6  4.3U0E-Ub , 

8  •  bO  Ofc -08  , 

4,3  0  06*11, 

0.  / 

MOT 

15  40 

DATA  (WO  (?,  I 

,1=1,  34)/ 

MDT 

15  50 

1  6.0006-05, 

6.  000~-05, 

6.0  0  06-05, 

6.2006-05, 

6*  4  OOE -05, 

6. 6006-0  5, MOT 

1560 

2  6.gno6-05f 

7.500E-09, 

7.9  00E-05, 

8.  60  0E-Q6, 

9.  OOCE-05, 

1  *  10  06-0  4 ,MO  T 

1570 

3  1.2006-04, 

1 .500E-04 , 

1.5  00E-04, 

1.9  0  0E-04 , 

c,  1 0  OE  -  04, 

2.400E-04,MDT 

15  ea 

4  2.800E-04, 

3*  20 Or  “0  4 , 

3. 4 00E-04, 

3,6006-04, 

3,  E00E-04, 

3. 40  OE-O  4*M0T 

1590 

5  3.200E-04, 

3,  000r-0  4, 

2.0  OOE-04, 

9.2006-05, 

4.100E-05, 

1,300 E-05, MDT 

1600 

6  4,3006-06, 

8.60CE-38  , 

4 .3  OPE-11 , 

0.  / 

MOT 

1610 

DAT  A (WO  (3 ,  I 

,1=1,  34)/ 

MOT 

1620 

1  6.0006-05, 

5. 40G"-3  5, 

4.9006-05, 

4,900  E-05 , 

4.90GE-05, 

5 • 8  0  OE -0  5 ,MO  T 

1630 

2  6,4006-05, 

7<7poc-:;f, 

9,0  006-05, 

1,  2D0E-04, 

1,  EOoE-04, 

2,1006-04, MDT 

1640 

3  2.600F-04, 

3, 0006-04  , 

3,2  OOE-04 , 

3.4  00E-U4, 

3,  6  0  OE  -  04, 

3,9006-04, MDT 

1650 

4  4,  1 0  OE -04  , 

4,  300-  -04, 

4,5  0CE-O4  , 

4.30  0  E- 04 , 

4, 3C0E-Q4, 

3.9DCE-Q4,MOT 

1660 

5  3.6006-04, 

3. 400r-04, 

1.9  00E-  04, 

9.200E-05, 

4,  100E-05, 

1.3006-05 ,MOT 

1670 

6  4. 30-06-06  , 

0  *Foop-oe , 

4,3  00E-11 , 

0.  / 

MOT 

16  60 

DATA (HC (4,  I 

,1=1,  34)/ 

MDT 

16  50 

1  4.9006-05, 

5.4006-06, 

5.6  0  OE-  0  5 , 

5.9006-05, 

6.000E-05, 

6  ■  40  OE-O  5 ,MCT 

17  CO 

2  7,1006-r5, 

7.5006-05* 

7.9CCE-05, 

1.1006-04, 

1. 30CE-04, 

1  •  80  0E-04 ,MDT 

1710 

3  2,  1006-04, 

2  *F00n -04 , 

2.8  0  06  —  04, 

3.2006-G4, 

3*4006-04* 

3. 9006-0  4  , HOT 

17  20 

4  4.1006-04, 

4.  10  OF-O  4  , 

3.9  CCE-04 , 

3.6006-04, 

3*  20 C 6-04, 

3.000E-0  4 ,MD  T 

1730 

5  2.6006-04, 

2.600E-04, 

1,  4  00E-  04, 

9. 2006-05  , 

4.  1016-05, 

1*  300E-0  5 ,MDT 

1740 

6  4. 30  06 -n6  r 

e  .fcOOE -op  , 

4,3  OOE- 1 1 , 

0.  / 

MOT 

1750 

QAT  A (WO  (9  t  I 

, 1  =  1  ,  *4 )  / 

MOT 

1760 

1  4.  100F  -C  *»» 

4. 1C0F-05, 

4,1 OOE-05, 

4,3006-05, 

4, 5006 -05, 

4. 70  06-0  5, MOT 

1770 

2  4.9C0E-P5, 

7. 10  Or-.'  5  , 

9  .0  OOE-05, 

1.60  OF- 04* 

2.  4  006-04, 

3.200E-D4 ,MO  T 

1780 

3  4. 30 OF- 0  4 , 

4, 70  Of *0  4, 

4,9  0  OE -04, 

5.6006-04, 

6.2C0E-04, 

6,  2006-04, MOT 

17  50 

4  6. 200 E -04, 

6. OCO“-0  4, 

5.600E-04, 

5.103E-04 , 

4*  70C6-04, 

4  *30  OE- 04, MOT 

18  CO 

155 


156 
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c 

c 

c 

c 

c 


c 


c 


c 

c 

c 


13 


SUBROUTINE  NShDL 

USEO  FOR  USER  OFF  I  Net)  ATMOSPHERIC  MOOEIS  (MODEL  *0  OF  7) 

OEFINES  ALTITUDE  3  F  p  F  NO  ENT  VARIABLES  Z,P,T,WH,WC  ANC  MAZE 
LOADS  HA  ZT  INTO  ApPRQPRATE  EH  LOCATION 

COMMON  /C6RD1/  MOO  EL  ,  I  HAZE  ,  ITT  PE  ,  LF  N*  J  P,  I V,  M1,MZ  ,M3  ,  ML,  I  EMI  SS,«0 
1  ,TB0UN0, ISEASN,  IVULCN, VIS 
COMMON  /CARC2/  HI , H2 , A NGL=  , RA N GE , EETA , HMIN ,RE 
COMMON  /CA»0?/  VI, V?,0 V, AVW,CO, CW , W(1S)  ,E (15) ,CA  ,FI 
COMMON  /CWTRI/  LFNST,KMAX,  ,  J2,  j  h in  , je  xtra,ii,iknax,nli,nfj 

l,IPlNO,NL,mo 

COMHON  /MOATA/  7  <  *  4)  ,  P  ( 7 , 3  4)  ,  T  ( 7 , 34)  ,  X  H  <7 , 34  )  ,W0  <7  ,  34) 

1  ,SFASN(2>  vVULCN(5>  ,VS0  (9)  y H7 (15) y  HMIX  ( 34 ) 

COMMON  RELHUMC34) , HSTOR(34)  ,EH  (15 , 34)  ,  TCH  (4)  ,VH(15)  yTX<15) 

COMMON  HLAT <2Af15|  fWPATH(68 ,15) ,T0BY(68) 

COMMON  APSC  (4,40),  FXTF(4y'4  0),  VX2<4  0) 

F ( A ) =EXP ( 18 .9766-1 4.  95 95*A - 2. 43 68 2  * A* A ) * A 
RV=4  • 6150  E"? 

T0=?73.t5 

IC1=1 

N=7 

1F(  I VULCN •(_£."•  )  IVULCNsl 

IF( ISEASN.LE, 0)  ISEASN=1 

FOR  MODEL  EC  ZERO 

IMA  0 

ISE  A  1  =  9 

I VUL 1=0 

VIS1=0. 

AH  A  ZF  =  0  • 

END  OF  HCCEL  7ER0  CEFAULT 
IF  <  M  ,N  E  ♦  0)  PRINT  1PC 
00  65  K=1,ML 
AHOL=10M 
AH0L1=1CH 
AHOL2=10H 
AH0L?=10H 

IF  (M.F9.0)  RF AD  P5,  HI ,P ( 7 ,1 ) ,T M F , DP , RH, HH C 7, K> » HO (7, K ) , R ANG E 
IF  ( H • EO «  0 )  PRINT  90,  H 1 , p ( 7 , l)  , T N P , D P , RH ,WH ( 7 , K) , H C ( 7 , K>  , RANGE 
IF  (M.GT.P)  RFAO  pn,  7(K1 ,P(7,K)  , TMP, DP,RHt MH (7, KJ  ,  NO<7,K> , AHAZE 
1 IS1,  IHA1,  ISEA  lf  IV'lLl 
IF  (M.EO.O)  7  <K)  =  41 

PRINT  95,  Z (K),P (7,K) ,  TMP,  DP, RH,WH(7,K) ,MO(7v K)  , AH AZE , VI Si , IHA l, ! 
1FA1 , IVUL1 

IH A 1  IS  IMA7E  FOR  THIS  LAYER 
I SE A 1  IS  ISEASN  FTP  THIS  LAYER 
IVUL1  IS  IVLLCN  C)P  THE  LAVER 
IF(ISEAl*rQ,0)  A1  =  ISEASN 
IFdHAl.GT,  O.OR,  IVUL1.GT.J)  GO  To  10 
ITYAER=IHA7E 

IF  ( 7 (K) • GT  #? i 0 )  ITY  A  FR=6 
IF  (  7  ( K'  j  ,  G T  .  c «  0 ) 

IF  (7 (K I .GT, $:♦) 

IH  A  1  =  IH  A  7F 
IVUL1  =  I VULC  N 
GO  TO  16 

IF ( IVUll.GT.n)ITYAF»=IVULl*0 
IF  ( I  HA  1  ,  GT  *  0)  IlYiERrlHAl 
IF  (  ITYflEP.GT.  16)  dYflcq-j^ 

IF (IHAl«Lr* C)  lMAl=7HA2f 


TTY  AE  R-  IV  U LC  N+9 
ITY  A(rR=15 


NSM 

10 

NSM 

20 

NSM 

20 

NSM 

40 

NSM 

50 

NSM 

60 

NSM 

70 

NSM 

00 

NSM 

90 

NSM 

100 

);SM 

110 

NSH 

120 

NSM 

130 

NSM 

14  0 

NSM 

150 

NSH 

160 

NSM 

170 

NSM 

160 

NSM 

190 

NSM 

200 

NSM 

210 

NSM 

220 

NSH 

230 

NSM 

240 

NSM 

260 

NSM 

260 

NSH 

270 

NSM 

280 

NSH 

290 

NSM 

3  C  0 

NSM 

310 

NSM 

320 

NSM 

330 

NSM 

340 

NSM 

350 

NSM 

360 

NSM 

370 

NSM 

380 

NSM 

350 

YNSM 

400 

NSM 

410 

NSM 

420 

SNSM 

430 

NSM 

440 

NSM 

450 

NSM 

4  6  0 

NSH 

470 

NSM 

4  8P 

NSM 

490 

NSH 

500 

NSH 

510 

NSM 

SCO 

NSM 

530 

NSH 

540 

NSM 

550 

NSM 

5  6  ) 

NSH 

570 

NSM 

580 

NSM 

5  9C 

NSM 

6  00 
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17 


c 


15 


20 


25 


30 


35 


1*0 


45 


if ( ivuh.lf.gi  ivuli-ivul:n 

NS  H 

610 

TF  (K.EQ.  1)  GO  TO  2" 

NSM 

6  20 

IF (N.EQ. ANP.ITYAEP.E0.6. AND.7(K),GT, 2. 0) 

GC  TC  17 

NSH 

6  30 

IF  (ITVftfR.  EO.ICHdC  1 )  )  GO  TO  20 

NSM 

640 

ici=icin 

NS  H 

6  SO 

N=  I C 1  ♦  1  0 

NSH 

660 

IF  (IC1.LE.4)  00  TO  Pn 

NSH 

6  70 

ICl  =  4 

NS  H 

600 

N=14 

NSH 

€  SO 

ITYAFR=ICH(iri) 

NSH 

700 

ICHCIC1  >*ITYAE«? 

NSH 

710 

J*IFIX<7(K) +1*CE"5) ♦ 1 

NSH 

720 

IF  ( Z  (K  )  «  GF  .  ?*>•  0  )  J-  <7<K)-25.0)/6.0*26. 

NSH 

770 

IF  <7(K)  ,GC  .5C.0)  J=  (7(K>-5C.0>/?G.0*31. 

NSH 

740 

IF  (Z<K) .S£ - 7C.f >  J«  (700-70. UJ/30.G*32. 

NSH. 

750 

IF  {  J.GT , )  J=3? 

NSH 

760 

FAC  =  7(K) -FLOAT  CJ-1 ) 

NSH 

770 

IF  (vJ.LT.26}  GO  T}  2  5 

NSH 

780 

FAC-(?(K) *5 «Q*FLOAT(J-26) -  ? 5. ) /5. 

NSH 

790 

IF  (J.GE.31)  FAC=(7(K>-50.C)/2tJ. 

NSH 

600 

IF  (J.GF.32)  FAC=( 7( K) -70. 0)/30. 

NSH 

010 

IF  (FAC.GT.l.C)  FAC=1.Q 

NSH 

620 

l=J  +  l 

NSH 

830 

T (7  »  K)  =  THP+  TQ 

NSH 

640 

IF  (Ml.GT.p)  C(7,<)=P(Mlf J> *(P(H1,L> /P(M1 ,J) ) **FAC 

NSH 

650 

IF  (Hl.GT.Q)  TC’jKJM  (Ml,  J>  *<T  <M1,L>/T  (HI  ,J)  >»*rAC 

NSH 

860 

IF  (H2.GT.0)  WU(7t K> *WH(M2, J> * < HH ( M2, L ) / WH< M 2 , J> > ** F AC 

NSH 

870 

IF  (  HH(7t  K)  .GT.0.  *•)  GO  TO  ?5 

NSH 

660 

IF  (RH.GT.G.0)  GO  TO  ?0 

NSM 

890 

CPK=  T  0  F°P 

NSH 

900 

TT=T0/OPK 

NSH 

910 

WH(?,K)=0PK*F (TT)/T(7, K) 

NSM 

9  20 

GO  TO  *5 

NSH 

920 

TA=TQ/T (7,K ) 

NSH 

9  40 

RH  SAT  =F ( T  A) 

NSM 

5  50 

RHD=. 01*RH 

NSH 

560 

0N  =  <  1 »  0“(  1,  C-RHO)  *RMSAT*RV*T(7,K)/P(7,  K>) 

NSH 

970 

WH  l  7  ,  K)  =RH$AT*RHO/ON 

NSM 

960 

CONTINUE 

NSM 

550 

IF  (M3.GT.P)  WO<  7,  Kl  =WO  (M3  ,  J>  *(HO(H3  ,  l )  /WC<M3,J  )  >**F»C 

NSM 

icca 

HS  TOR (K)  =  ?. 

NSH 

1010 

IF  <HMI*( J)  .LF.O  .)  r-c  TO  4  0 

NSM 

10  20 

IF  ChmIKIL)  .LE.C.)  GC  TO  40 

NSH 

1030 

HSTOP(K)=HMIX(  J)  *(MMIX(L)/HMIX(J)  >  **fac 

NSM 

1040 

CONTINUE 

NSM 

1050 

EH (7,K) =0. 

NSM 

1060 

EH  (12, »f)  =0. 

NSH 

10  70 

EH  ( 1 3  ,K  )  =  r  . 

NSM 

1060 

EH  (  14,  K)  =  P. 

NSM 

1090 

EH  ( lc,*0  =C  , 

NSM 

HOO 

IF { I HA7 f , E O *  0 )  GO  Tn  60 

NSM 

1110 

IF  (VIS1.LE .0.0)  VISl^VIS 

NSM 

1120 

IF  (AHA7?,  cq.  c.O  >  Gu  rG  4* 

NSM 

1130 

EH  (N,  K)  =  AH  A  7E 

NSM 

1140 

AHA 7E  IS  IN  LOHTPAN  NUM  BE<  DENSITY  UNITS 

NSH 

1150 

GO  TC  5*5 

NSH 

1160 

CALL  AERPRF  (J,VrSl,HAZl,IHAl,ISEAl,IVULl  ,NN) 

NSH 

117(J 

CALL  AF"PRF  (  L  ,  V  13  1 ,  H  A  Z  c ,  I  H  A 1  ,  I  S£  A 1  T  I  V  UL1  , 

NN) 

NSM 

iieo 

HAZf-0. 

NSH 

1150 

IF  ( (HA7i ,LE.^.P}, OP.  (HAZ? .LE.C. 0)  )  GO  TO 

50 

NSM 

1200 

158 


159 


Table  A 1.  Listing  of  Fortran  Code  LOW  TRAN  5  (Cont. ) 


SU0ROUTINP  HPROf  HFR 

C  REVISEO  12  DEC  1979  HFR 

C  DEFINES  THE  ATMOSPHERIC  D*  NSITY  PROFILE  OF  THE  MOLECULAR  ANO  HPR 

C  AEROSOL  AMOUNTS  THE  MODEL  SELECTED  HPR 

C  HPR 

COMMON  /CARD1/  MODEL , IHAZE , ITYPE, LEN, JP, IH„Hl,M2 ,M3 ,Nl, IEMISS ,R0  HPR 
1  ,T0OUNQ,ISEASN, IVULCN,VI5  HFF 

COMMON  /CASC2/  HI , H2 , A NGLE , RANGE , BETA t HMI N,  R E  HPR 

COMMON  /CA9C3/  VI, V2,C V  , AVH  ,CG ,CH ,W < 15)  ,E <15 )  ,CA  ,PI  HPR 

COMMON  /CNTRL/  L^NST  ,KMAX,  M,U,Jl,J2,  JMIN, JE XTRA , I L, IKHA X, NLL , NP 1  HPR 
t , IF INO »  NL , I *10  HPR 

COMMON  /MDATA/  ?<3M  ,P(7,S4)  ,T  (7,34)  ,HH(7,34>  ,H0  (7,  34)  HPR 

1  ,S€  ASH  (?> »  VUICN<5  ) ,  VS 6  (9)  ,-HZ  (15)  ,HHI  X  ( 34)  HPR 

COMMON  RELHUM<34),HSTOR(34>  ,EH<15,34>  ,  ICH<4>  ,VH<15>  ,TX(15)  HPR 

COMMON  WLAY f34,15) ,HPATH<66 ,15) ,TBPY< 68)  HPR 

COMMON  AB5r(4,40>  ,EXTC<4,4C>  ,  VX?(4C)  HPR 

F  <A)=EXP<18. 9766-14,  ?695*A-2.43682*AM)*A  HPR 

00  5  1*1,  34  HPR 

00  5  J=1,KHAX  HPR 

5  HL  AY  < I , J)  =  0 ,  HPR 

C  RV  =  H 20  0 AS  CONSTANT  HPR 

A  VH  =  0.»5E-4*  (Vl+V?)  HPR 

AVW=  A VN*A  V  W  HPR 

Q0= 77. 46*, 459*AV W  HPR 

CW=43. 487-0.  ?473*AVW  HPR 

IF ( TBOUNP.IE. C ,ANH .(Ml *LE. O.OR.H.EQ.7) >T POUND =T  <K,1>  HPR 

IF  (TPOUND.LE.  0,  AMD. Ml.  GT.  0  •  ANO.M.LT.  7)  TfJOUN 0=T  (Ml,  1)  HPR 

IF  ( JP«  EQ, Q )  PRINT  US  HPR 

IF  (JP.EO.O)  PRINT  50  HFR 

IF  IM,LT*”M  HL=NL  HPR 

R V=  4 • 61 50F -  3  HPR 

CO  25  1=1, ML  HPR 

PS*P (M, T ) /1 01 3.  n  HPR 

TS=273. 15/T«M,I)  HPR 

HTEMP=MH(M,I)  HPR 

IF (Ml.GT.fl. AMD  ,M«LT ,  7) PS* 9 ( Ml , I ) / 10 1 3.  HPR 

IF (HlaGT* 0 • ANC«M«L T« 7)  TS  =  273.15/T (Mi, I)  HPR 

IF(M2,GT,0. AN0,M.LT,7)  HT£ M P= HH (M 2 ,1 )  HPR 

REL  HUM  <  I '  =  0  •  HPR 

IF  <Z(t>  .GT.2.0)  “0  To  10  HPR 

RHOSTR= (P^*1013. 0) * (TS/273  .  15  >/RV  HPR 

REL HUM ( I)  =  10D.P*«HT; MP/F( IS) I *( ( RHOSTR-F  C TS) ) /  (RHQSTR-WTEMP) )  HPR 
10  0=0.1*WTFMP  HFR 

X-PS*TS  HFR 

PT= PS’SQRT ( T5)  HPR 

EH(l,I>  =  r*PT**0.<»  HPR 

EH( 2,1) =X*»T**0. 75  HPR 

EH(4,I> =0.«»PT*X  HPR 

PPW=4.56c-5*C427'f,15  /  TS  HPR 

TSl*(?9S.  C/277,15)  *TS  HPR 

EH  (5, 1)  =  C!M»PH*tX*,(  6.0B*(T51-1.0)MO.  00  2  *0*  ( P  S-PF  M)  HPR 

EH  (  10,1)  =0*  (PFW*-0g12*  (PS-oPU)  )*EXP  (4.56*  (TS1-1*  0))  HPR 

EH (6, I)  =  X  HPR 

C  SUBROUTINE  AEFP9F  COMFUTES  EH(7„I)  HPR 

C  EH  1 7  ,1 ) = A f  R50L  FO3  0-7KM  HPR 

C  EH ( 12, I ) =A EPSOL  POP  ?-?KN  HPR 

C  EH( 13,1)  =  AE  RSCL  FOR  9-30KN  HPR 

C  EH(14,I) =AEPSCL  FO°  5n-10nKM  HPR 

IF  (M .N c ■ 7 )  CALL  A  ERPRF  < I , VIS , H A ZE , I H A ZE ,IS £ ASN, I VULCN, N)  HFR 

IF  (M.E0.7)  GO  TO  lc  HFR 


10 

20 

30 

40 

50 

60 

70 

60 

SO 

100 

110 

120 

130 

140 

150 

160 

170 

100 

1«0 

200 

210 

220 

230 

240 

250 

260 

2  70 
260 
290 
300 
310 
320 
330 

3  40 
350 
360 
370 

3  80 
390 
400 
410 
420 

4  30 
440 
450 

4  60 
470 
480 
450 
500 
510 
520 
530 
540 
550 
560 
570 

5  FC 
590 
600 


160 


Table  Al.  Listing  of  Fortran  Code  LCWTRAN  5  (Cont. ) 


EH<7,I>=  0* 

HPR 

€10 

EH« 12,11  -0 , 

HPR 

620 

EH(13,1)=0 . 

HPR 

630 

EH ( 1 4f  t ) -r • 

HPR 

640 

EH< 15 ,1) -0 • 

HPR 

650 

EH<Nt I) =HftZE 

HPR 

660 

15 

CONTINUE 

HPR 

670 

EH(15|I>  =RC  LHUH (t)*?HC7,I) 

HPR 

€80 

IMICHtl) ,GT,7)EHJ 1S,I>=RELHUM(I> *EH(12,I) 

HPR 

690 

EH  (B,I)  =46.  6667*  113  CM  ,  T ) 

HPR 

700 

If  (H3.GT.0  .AN0.H.LT.7)  EH<8,I)'46.667*W01HJ,I> 

HPR 

710 

EH  (  3,  I)  sEH  (  ? *  1 1  *PT"  0. 4 

HPft 

7  20 

EH(11,I>=MN03  A953R9E0  AMOUNT  <ATM-CN)/KH 

HPR 

730 

EH  ( 1 1 , 1  >  *PSMS*HMIX(I>M.0E-04 

HPR 

740 

IF  <M,FQ.T»  EHClt, I)  =c  SMS  *  HS  TOR  ( I }  *1 . 06-04 

HPR 

750 

EHC9tI)=1.0 

HPR 

7  60 

REF=l,0E-6*  (CO*X*101  3. 0/27  3.15-PPW*CW> 

HPR 

770 

IF  CI.EQ.ML)  GO  TO  20 

HPP 

7  80 

°  2=P ( M, I* 1 > 

HPR 

790 

T2=T (H, 141) 

HPR 

8  CO 

N2  =  NH(  M,  I  *■!) 

HPR 

810 

IF (H1.GT.0 • ANC.M.LT.7)  F2sP (M1,I*1) 

HPR 

820 

IF  IMl.GT.  0,  AND,  M,  LT.7)  T2  =  T(N1,IH> 

HPR 

(30 

IF  (M2,GT. 0, AND.M, IT. 7)  N2  =  NH (M2  , 1  +  1) 

HPR 

840 

FPH=4,56E-6*H?»T  2 

HPR 

850 

EH<5,I)  =  0.5  MFEF+l  #CE-6*<:  0*P2/T2-°PW*C W>  > 

HPR 

860 

20 

IF  (I.EO.MU  EHC9,I>*1. 

HPR 

870 

IF  <JP4NF,0)  GO  TO  25 

HPR 

880 

P1=P<H,I> 

HPR 

ess 

T1=T (M, I) 

HPR 

9  CO 

IF  (M1.GT.0. ANC.H.LT.7I  Pi  =  P(Ml,l) 

HPR 

910 

IF  (H1.GT.0. ANC,M.IT.7>  Tl=T <Hi,I) 

HPR 

920 

PRINT  1,3,  1 ,7(11  ,M,T1  ,<EH(K,I>  ,K*1,6)  ,£H<9,  II,EMB.I>  MHR 

93u 

25 

CONTINUE 

HPR 

5  40 

IF(JP,EO.ai  NPITE  C6.55) 

HPR 

950 

00  35  1  =  1, ML 

HPR 

9  60 

IF  CJP.NE,0)  GO  TO  30 

HPR 

570 

P1=P<M» I) 

HPR 

980 

T1*T(M,I) 

HPR 

990 

IFC  Ml.GT.C . ANC.M.LT.7)  Pl=  P<H1,I) 

HPR 

1000 

IFCMl.GT.O. ANC.M.LT,  ▼>  T1=T  CNltI> 

HPR 

1010 

PRINT  40  ?  ItZCI) ,P1,T1, CEH(K,I> , <=1 0 , 11 ) ,EH t 7 ,1 > 

,  (EMK,  n,K*12,15>HPR 

10  20 

ItRELHUHCn 

HP  R 

1030 

30 

EHC9. I) =EH(«, I) *1. 

HPR 

1040 

35 

CONTINUE 

HPR 

1050 

RETURN 

HPR 

1060 

HPR 

1070 

40 

FORMAT  (l4,npF9.2,F9. 7,F9,  3,1X, 1P8E10, 3) 

HPR 

1080 

45 

FORMAT  (1H1,///1DX,20H  HORIZONTAL  PROFILES/) 

HPR 

1090 

50 

FORMAT  (4  h  I C, 5 X, ’HALT  ,6X  , 1HP ,6X , 1HT , 8  X,  3HH20,  6X*4HC02  *  ,  8X,  2H03 ,8HPR 

1100 

IX  ,2HN?,5X,  PJ-H2OC10H)  ,  4  X,  4  M  MCL  S  ,  5  X,  r>H(  N  -  L)  ,4Xt  WO 

3<uvn  HPR 

1110 

55 

FORMAT  < 1M1,///1CX ,20H  HORIZONTAL  PROFILES/, 4P 

JC,5Xj3HALT,EX,1FFMPR 

1120 

1  ,«X,IHT,fcX,7MM29  UNI  ,  £X ,  i»H  HfJO  I,  6X,  4H#E  R1t  it  ,  RH  *E  SE  (fcX.fcHAEXJ  ,6X,«,HHPR 

1120 

2AER4, 3V,9H ( AERl^ftM) , 5X,2HRH) 

HPR 

1140 

END 

HPR 

mo 

Table  Al.  Listing  of  Fortran  Code  LOWTRAN  5  (Cont.  ) 


SUBROUTINE  AFRPRF  O » V I S, H A 7E , IH A 7 E , I S E ASN , I VUl C 4  * N ) 

aer 

10 

KILL  COiPUTF  H  OR  17  ON  T  A l.  PROFILES  FOR  AEROSOLS 

AER 

Z0 

rOHMON/?RFDTA/7H7(  34  )  ,  H  Z2K  (  ’4 , 5)  f  F  AH  1 5  0  < 3  4)  ,  FAWI  2  3  (  34)  ,  SPSl'5  0  <  34  ) 

•  AER 

30 

1SPSU?3<  74)  ,PASTF  W(34) ,  VUHD  F  W  t  34  )  ,  H  I VU  F  W  <  34)  ,E*VUFM  74) , BAS TSS ( 34  > , A ER 

40 

2VUH0SS<3  4) ,HI KUSSC *4)  , E  XVJSS<34> ,UPNATM(34>  ,VUT0N0(34> , 

aer 

50 

3VUT0E  X  C  74 ) ,EXUPaT<?4 ) 

AER 

60 

DIMENSION  V5(c> 

A  ER 

70 

OAT A  <VS(J>  ,J=1,5)  /SO. ,23.  ,  10. ,5. ,?./ 

A£R 

80 

HA7E*0, 

AER 

SO 

CALL  PRFpTA 

AER 

1(10 

N=  7 

AER 

110 

IF  cr, o)  RETURN 

AER 

120 

IF  (  ?HT  <I)  .GT.?.  0)  GO  TO  15 

aer 

130 

OO  5  J=*,c 

A  ER 

1  4  C 

IF  <  VIS.GE  .  VS(JM  GO  TO  10 

AEF 

150 

5 

CONTINUE 

AER 

160 

J=5 

AER 

170 

10 

CONST  =  l  ./< 1 ./VS( J) -1. /VS(J-l) ) 

AER 

180 

HAZE=CONST*  (CH22KCI, J) -HZ? K ( I , J- 1) ) /V  IS ♦ H 22  K  ( I, J-l) / VS (J) - H Z2K (1  , 

JAER 

190 

1> /VS( J-i>  > 

AER 

ZOO 

RETURN 

AER 

210 

15 

IF  (7HT(I)  •GT#9«0)  GO  TO  35 

AER 

220 

Ns  1 2 

aer 

230 

CONST  =1./  (1./23.  -1 ./5fl .) 

AER 

2  4  C 

IF  (ISF  ASN.GT . 1)  00  TO  25 

aer 

250 

IF  (VIS.Lf.23.)  HAZF  = SPSU23(I> 

AER 

260 

IF  (VIS.Lf.23.)  Pc  TUPN 

AER 

270 

IF  <7HT (I J . GT ,4. 0)  5 O  TO  20 

aer 

2eo 

HA2ErCONST*((SPSU2  3(I)-SP3UE0 ( I ) > /V IS  +  SPSU5 0  (1) /2? . -SFSU23 (I ) / 50 . 

)  A  E  R 

290 

RETURN 

AE;i 

3  00 

20 

HAZE  =  SP*^U5  0(1) 

AER 

310 

RETURN 

AER 

320 

25 

IF  'VI*.Lr.:3.)  HAZErF AWI23(I) 

AER 

330 

IF  (VIS.Lf.??.)  RETURN 

AER 

7  40 

IF  (7HT  (I)  .GT  ,4*  0)  r-o  TO  3  0 

AER 

350 

HAZE=CONSTM(FAWI2  3<  I)  -FAWI  50  (I)  ) / V IS  +  F AW  15 0 ( I) / 23 . - F AW  1 23 < I > / 50 . 

)AER 

760 

RETURN 

AER 

370 

30 

HA7FrFAWI50 (I) 

AER 

3  60 

RETURN 

aer 

390 

35 

IF  <7HT (I) .GT .30,0)  GO  TO  7* 

AER 

4  00 

N  =  1  3 

AER 

410 

HAZE=?®STSS (I) 

AER 

420 

IF  (ISEASN.GT.l)  30  TO  55 

AER 

430 

IF  (IVULCN.rQ.O)  HA?E  =  BASTSS(  I) 

AFR 

440 

IF  (IVULCN.EQ.  0)  RETURN 

aer 

450 

GO  TO  (40,45,50**0*45),  IVULCN 

AER 

4  60 

40 

HAZE=BASTSS(I) 

AER 

470 

RETURN 

AER 

480 

45 

HA  7E=VUMOSS  (I  ) 

AER 

490 

RETURN 

AER 

5  00 

50 

HA7E=HIVU5S (I) 

AER 

510 

RE  1  URN 

AER 

520 

55 

IF  (IVULCN.  PQ.0)  NA’fsBASU  W(I) 

AER 

5  30 

IF  (IVULCN. EC. 0)  RETURN 

aer 

540 

GO  TO  (60,65,  70,7-1  ,65),  IVULCN 

aer 

5  HO 

60 

HAZE=BASTFW  (I) 

aer 

560 

RETURN 

AER 

570 

65 

MA7E  =  VUMOFWm 

AER 

560 

RETURN 

aer 

5  50 

70 

HAZE=HIVUFW(I) 

aer 

600 

RE  TURN 

AE  R 

610 

75 

N=  14 

AER 

€20 

IF  (IVULCN.  CT.  1)  GO  TO  60 

AER 

6  3  C 

HA7E=UPNATM<I> 

AER 

640 

RETURN 

AER 

€50 

eo 

MA7E=  VUTONO(I) 

AER 

66C 

RETURN 

AFP 

€70 

£  NO 

AEP 

660 

162 


Table  Al.  Listing  of  Fortran  Code  LOWTRAN  5  (Cont. ) 


iUSCUIhE  FRFC1A 

FFF 

16 

REVISE!  1C  JIN  E 

)5  E  0 

FRF 

20 

AERCSOl  FR  CF  I L  6  CATA 

FRF 

36 

FFF 

46 

CCC7'C)./PRFCTA/2FT  I34),)-Z2K«34,5)  ,FAM50  6  34  )  ,FAH2  3  < 

34  )  ,'PSU5  6  (  3  4  ) , 

,  FFF 

56 

lSFSU23<34),E’'TFR<34),VI.RCFM34),HVLFM34),EMtFM 

34  )  .EASTS'  (34  ) 

,FFF 

E  6 

2VU'CSSt34),)-IUIS634>,E>VlSS634>,lFMTM34l,\iLUSC< 

34  )  , 

PF  F 

76 

3VI  ICE* (34)  .EXIFM  (34) 

FFF 

86 

CA  1A6/FTU)  ,1=1,  34)/ 

FFF 

5C 

*  0  . ,  1 .  ,  2  . ,  3.  , 

^  »  5  •  i  €  •  * 

7  . ,  6.  , 

FFF 

166 

*  9  .  ,  10.,  11 .,  12 .  , 

13. *  U . »  15 •» 

IE  . ,  17., 

FFF 

116 

•  18 .  ,  IE.,  20 . ,  21.  , 

Ct%  t  <w»  |  c  * 

2  5  .,  3  0  ., 

FFF 

126 

»  35  .  ,  4  0  .,  45  .,  50  . , 

7  C  •  f  10G.*c.Sc.c-<«/ 

FFF 

1 3  C 

CA1A  <  HZ2M  1,11  ,1=  1,  51/ 

FFF 

146 

1  E.E2E-02,  1.58E-01,  3.79E-01, 

7.70E-01,  1.«<*E«I0/ 

FRF 

156 

CM  A  (  HZ2M  2,1)  ,1=  1.  5)/ 

FFF 

166 

1  4.15E-0Z,  5.51E-62,  3.79E-01. 

7.7CE-C1,  1.54E46C/ 

FFF 

1  7  C 

DM)  (  HZ2M  3,11  ,t=  1,  5)/ 

FFF 

i  e  c 

1  2.60E-02,  6. 216-62,  6.21E-02, 

0.21E  — 02,  E  •  2 1 E-  (2/ 

FFF 

156 

CA1A6FAWIS0<1).I=  4,  10)/ 

FF  F 

206 

1  1.14E-02,  E.43E-Q3,  4.E5E-Q3, 

3.54E-03,  2.216-63, 

1,410-03, 

FFF 

216 

2  5  .8  0  E- 04 / 

FFF 

226 

CP1A0FAWI23 (I  ),I=  4,  101/ 

FFF 

2  3  C 

1  2  .720-02,  1.20E-C2,  4.E5E-03, 

3  ,54  E  -  03  2  ,  3  1  E  -  6  3  , 

1,410-03, 

FFF 

2  46 

2  9.  £00-04  / 

FFF 

256 

CA)A 6  SFSU  5  0  ‘I  )  ,1  =  4,  101/ 

FFF 

2  E  6 

1  1.466-02.  1.C2E-C2,  9.31E-03, 

?  .7  IE-03  ,  E.23E-63, 

2.376-02, 

FFF 

2H 

2  1.82E-03/ 

FFF 

2EC 

0<TA,5FSU23ii).]-  4.  101/ 

FFF 

256 

1  3.4EE-02,  1.660-  62  ,  9.316-03, 

7.71E-03,  E.23E-63, 

3. 37E-03, 

FFF 

366 

2  1  . 820-03/ 

FFF 

316 

DATA  IEASTFM1  )  »  I  =  11,  27  )  / 

FRF 

326 

1  7.87E-04,  7.14C-C4,  6.E4E-04, 

6.23E-04,  E.45E-64, 

6.436-  04, 

FRF 

336 

2  f. 410-04,  E.  600-  64  ,  5.E2E-04, 

4.51E -04  ,  4 , 23E  -  E4  , 

3.52E-04, 

FRF 

341 

3  2  .95E-04,  2.*2E-C4,  1-50E-04, 

l.SCE-04  ,  3.22E-C5/ 

FRF 

356 

CA  1  A  (VEMOFh  U  ),  )=  11,  27)/ 

FFF 

3  E  6 

1  1.380-03,  1.750-13,  2,216-03, 

2.75E-03,  2.65E-C3, 

2.52E-03, 

FRF 

376 

2  2,7  36-0  3  ,  2.4EE-C3,  2.10E-03, 

1.71E-C3,  1.35E-63, 

1  .  6  56-  02, 

FFF 

3  E  6 

3  8  .600-04.  E.E0E-C4,  5.15E-04, 

4.05E-C4,  7.EEE-6E/ 

FRF 

35  t 

CA1A  IFIVLFV  II  ),1=  11,  27)/ 

FRF 

4  Cl 

1  1  .710-03,  Z.31E-C3,  3.25E-03, 

4.52E-03,  t. 4CE-C3, 

7.  E1E-03, 

FRF 

4  1 C 

2  5.426-0  3  ,  1  ,  07  6-02  ,  1.1  00-  02  , 

8  .  *:  t  E  -  0  3  ,  5,366-63, 

2  .  7  66  -  0  3, 

FRF 

420 

3  1.46E-03,  0.5CE-C4,  5.E0E-O4, 

4,0  56-04  ,  7  .E6E-65/ 

FRF 

43  0 

DATA  (EXVUFMI  )«]  =  11,  27)/ 

FRF 

440 

1  1.71E-03,  2.316-13,  3.25E-03, 

4.52E-  03  ,  6.4  06-  63  , 

1  . C IE- 02, 

FRF 

450 

2  2.3  5E-02,  t  .106  —  02  ,  l.CGt-Ul, 

4.0CE-02,  5 . 1 56- 63, 

J.l/E  —  03, 

FRF 

4  E  C 

3  1.4EE-03  ,  6  .506-04  ,  5  .E 0E-04, 

4.C5E-04.  7  ,t  66  -  65/ 

FRF 

470 

DA1A6EAETSS6I ) . 1=  11,  27)/ 

FRF 

480 

1  1.140-03  ,  7  .556-C4,  6.410-04, 

5.17E-04,  4.ME-64, 

3.55E-04, 

FRF 

45  6 

2  3  .820-04,  4.25E-C4,  5.20E-04, 

5.81E-C4  i-64, 

5.  02E-O4, 

FRF 

5  0  C 

3  4.20E-04,  3.  C0E-  04  ,  1.580-04, 

1.310-04,  3.326-65/ 

FRF 

5  1  C 

DATA (VCHOSS U ) ,1=  11,  27)/ 

FRF 

526 

1  1.850-03,  2.120-63,  2.45E-03, 

2.ECE-03,  2.E5E-63, 

2. 52E-03, 

FRF 

5  3  C 

2  2  .  7  30-0  3  ,  2  . ‘EE-63.  2.10E-03, 

1.71E-03,  1,356-63, 

1.056-03, 

FRF 

546 

3  8  .6  0E-04,  E.E0E-C4,  5.15E-04, 

4.C5E-  04  ,  7.6  0E-C5/ 

FFF 

5  5  C 

0  ATA  IHIVtJSS  6 1)  ,3=  11,  27)/ 

FFF 

EEC 

1  1,856-03,  2.12E-03,  2.45E-03, 

2.80E-03,  3.ECE-63, 

5  •  2  2  E-  03, 

FFF 

57  6 

2  8.11E-03,  1.20E-E2,  1.526-02, 

1 , 53E-02 ,  1.17E-62, 

7.C5E-02, 

FRF 

586 

3  4  ,506-03,  2  .406-03,  1.28E-C3, 

7.7EE-C4,  7.ECE-6E/ 

FRF 

5  S  C 

CATA  6EXVLSS  61  ),I-  11,  27)/ 

FRF 

eot 

Table  Al. 


Listing  of  Fortran  Code  LOWTRAN  5  (Cont.  ) 


i  1.858-03,  2.12F-03,  2.A5S-03 

,  2. 80E-0  3,  3 

.  60E-03, 

5.23E-03, 

PRF 

610 

2  B.UE-03,  1.27E-02,  ?.  32E-  02 

,  *.65E-(J2,  t 

.  QOE-Ol, 

5.5QE-02  , 

PRF 

620 

3  e.iOE-n?,  2.40E-0-*,  1.28E-03 

,  7.76E-C4,  7 

*  6  0E-05 / 

PRF 

630 

DATA(UPNATM<I>,I=  27,  3*1/ 

PRF 

6*0 

1  3.J2E-95,  1 • F*F -  05,  7.99E-C6 

,  4.01E-G6,  2 

•  ICE- 0  6 1 

1.60E-Q7, 

PRF 

650 

2  9, 31E-1C.  r.  / 

PRF 

660 

OATACVUTCNOU>fI*  27,  3*)/ 

PRF 

6  70 

1  7.60E-05,  2,«.SF-0S,  7.99--C6 

t  <i.01E-C6,  E.IOE-Oei 

1.6QE-07, 

PRF 

6«0 

Z  9. 31E-10,  P.  / 

PRF 

690 

DATA(VUTOEX(n,I  =  27,  3*1/ 

PRF 

700 

1  7.60E-05,  7.20P-09,  6.95E-05 

,  6.60E-05,  5 

•04E-05, 

1«  C3E-0  5# 

PRF 

710 

2  <4.  50E-07,  0.  / 

PRF 

720 

OATA  CEXUPAT  (I  )  ,T*  ?7  ,  3*1/ 

PRF 

730 

1  3.32E-05,  4.25F-95,  5.59E-05 

,  6.605-0*5,  5 

•0*E-05, 

1* 03E-0  5, 

PRF 

7*0 

2  4.50E-07,  0,  / 

PRF 

750 

ccc 

0-?KM 

PRF 

7  E  0 

ccc 

H2?K=5  VIS  PROFILES- 

50KM , 2 3 KM ,  1 0  KM  ,  5  KM  ,  2KM 

PRF 

770 

ccc 

> 2-PKH 

PRF 

780 

ccc 

FAWI5C=FALL/WINTER 

50KM  VIS 

PRF 

750 

ccc 

FAWI23-F  ALL /WINTER 

23KM  VIS 

PRF 

800 

ccc 

SPSL50= SPRING/ SUMMER 

50  KH  VIS 

PRF 

eio 

ccc 

SPSU2 ?=S  PR IN G /SUMMER 

23KH  VIS 

PRF 

620 

ccc 

>9-?HKM 

PRF 

630 

ccc 

9ASTFV=9A:kGR0UN0  stratospheric 

fall/hinter 

PRF 

8*0 

ccc 

VUNCFW^hopFRATE  volcanic 

F  AIL/'  W INI  EF 

PRF 

CFO 

ccc 

H I VUF W=H I C H  VOLCANIC 

fall/hinter 

PRF 

660 

ccc 

EXVUFV*£XvREMP  VOLCANIC 

fall/ winter 

PRF 

870 

ccc 

BASTSS,VUiOS3,HIVJSS, 

EXVUSS= 

SPRING/SUMMER 

PRF 

680 

ccc 

>3°-i 0nKH 

PRF 

8  50 

ccc 

UFNATW=NORMAL  UFPER  ATMOSPHERIC 

PRF 

500 

ccc 

VUTCNCsTRANSITION  FROM  VOLCANIC  TC 

ncrmal 

PRF 

510 

ccc 

VUTCEXsTRANSITION  from  volcanic  TC 

EXTREME 

PRF 

520 

ccc 

FXUPA f=EXTRFME  UP»FR 

ATMOSPHERIC 

PRF 

9  30 

ccc 

RF.AO  IN  AtRCSCL  HCJPELF  EXTINCTION  ANU  ABSORPTION 

tCEFFICItNi S 

FKF 

5*0 

RETURN 

PRF 

950 

END 

PRF 

965) 

164 
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SUBROUT T  NE  GEC 

GEO 

10 

GEO 

20 

SPHERICAL  GTOHETPy  H ITH  RE  FRACTION 

GEO 

30 

defines  absorber  amounts  pop  the  atmospheric 

SLANT  PATH 

GLC 

40 

USED.TO  SET  UP  VERTICAL  PROFILE  ARRAY  VH  AND 

DEFINES  MATRIX 

GEC 

50 

WLAY,  FOR  USE  IN  SUBROUTINE  PATH 

GEO 

eo 

GEO 

70 

COMMON  /CAR  01/  MOQFL  , I  HAZE  ,  IT  YPE  ,L  EN ,  J  P  ,  IM,  H 1  ,M  2  ,M3  .  ML,  IE  MISS, RO 

GEO 

60 

1  ,T0OUNn,IS* ASN, IVULCN, VIS 

GEO 

?Q 

COMMON  /CARP2/  H 1 , H? , ANGLE , RA NGE , Ef TA , H H tv, R E 

GEO 

1  00 

CONMON  /<~A*C3/  VI,  V?  ,0  V,  AV  W,CO,CH,  N(16'  ,E(15>  ,CA,PT 

GEO 

110 

COMMON  /CNTRL/  l*N«T, KMAX, H,I  J , J1 , J2 , JMIN , J FXTRA  ,1 1 , IKM AX , NLL , NF 1 

GEC 

120 

l,lFlNQfNL,IKLO 

GEO 

130 

COMMON  /MOATA/  7(  34)  7,3  4)  ,T  (7,34)  ,WH  (7  ,34)  ,W0(7  ,  34) 

GEO 

140 

1  ,S€ASN (?) fVULCNIS) , VS0(9>  ,HZ (15) ,  HMIX (34) 

GEO 

150 

COMMON  RELHUM ( 34)  |  HSTOR ( 74 )  ,EH (15 , 34) , ICH (4) 

,  VH ( 15)  ,TX( 15) 

GEO 

160 

COMMON  VLAY(34,iS) ,HOATH(S8 ,15) ,TePY(68) 

GEO 

i7Q 

COMMON  A  BSC  (4,40), EXT C (4,40), VX2<4  0) 

GEO 

160 

JSTQPrO 

GEO 

190 

Jl  X  T  R  A-  0 

GEO 

200 

IF  <IFIND.EC,  11  CALL  ANGL  <  HI  ,H2  ,  ANGl  F  ,  BE  TA  , 

LENS1  ,H,NL?RE,PI  , ML ) 

GEC 

210 

IFINC=0 

GEO 

220 

LEN=L tNST 

GEC 

230 

IF  (ITYPE.EC.J)  GD  TO  2C 

GEC 

240 

DO  5  K.s  1 » K M  A  X 

GEO 

250 

VK  (  K )  r  0  .  0 

GFO 

260 

5  CONTINUE 

GEO 

270 

GET  A-  0*  T 

GEO 

2*0 

SRr  o.  0 

GEO 

290 

IP=  0 

GtO 

3  C  Q 

NON  define  CONSTANT  PRESSURE  PATH  QUANTITES 

EMI'-  E  > 

GEO 

310 

Y-CA*ANGLF 

GEO 

3  <0 

SPHI-SIM(V) 

i>EC 

330 

Rl=  (RE+H1)*^PHI 

GEO 

340 

IF  (H1-GT.7  (NU  )  SO  TO  IQ 

GEO 

450 

GO  TO  ?0 

GEO 

360 

10  X=  (RE +7  (NO l/CREMll 

GEO 

370 

IF  <SPHI,GT.X)  GO  TO  15 

GEO 

360 

HI s7<NLI 

GEO 

390 

JlrNL 

GEO 

400 

SPHI«SPH1 /X 

GEC 

410 

ANGLE =1 50 .O-ASrN(SPMl) /CA 

GEO 

420 

Rlr ( RE*H  j ) *SPHI 

GEO 

4  30 

GO  TO  ?n 

GEO 

440 

15  HMIN=R1-RF 

GEO 

450 

PRINT  HMIN 

GEO 

460 

GO  TO  210 

GEO 

470 

20  CONTINUE 

GEO 

480 

TP=1 

GEO 

490 

X 1=  H 1 

GEO 

500 

CALL  POINT  (KifYN,N,NPi,r-»> 

GEO 

5  10 

Jl  -  N 

GEO 

520 

TX1=TX (9) 

GEO 

530 

DO  25  K-ltKMAX 

GEC 

540 

Zb  E(K)=TX(K) 

GEC 

550 

IF  (ITYPE,EQ.l)  GO  T0  6C 

GEO 

560 

IF  < ITY&F.EC.  3)  H2=7(NL> 

C.EO 

570 

IF  ( ANGL r • GT«  9  0  >  Q)  GO  TO  90 

GEO 

5  C  0 

3  d  IF  (ANGLF.GT.90.  0.  AN  0 ,  N FI •  GT  •  0)  Jl*Jl+l 

GEO 

590 

J25  NL 

GEO 

600 

- , 
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IF  (ITvnr.ec,’>  CO  TO  36 

GEC 

610 

CALL  POINT  (H?,YN,  N,NP,  JP) 

GEO 

6  20 

J2  =  N 

GEO 

630 

IF  (NP.GT.O) 

GEC 

640 

35 

00  40  K=1,KMAX 

GEO 

650 

IF  (  K,  F  0*  9)  CC  to  to 

GEO 

6  60 

£H( K  »J1 ) *p CK > 

GEO 

670 

IF  (ITYOF.EC.Y)  ro  rp  ^0 

GEC 

660 

EH(K,J?Ml  =TX  OO 

GEO 

650 

40 

continuf 

GFO 

7  1 0 

IF  { J1  • EQ » J?)  TXlsTXi ♦YN-FH (9,J1) 

GEC 

7  JO 

NOW  Oe^INF  V-RTIC»l  rA  TH  QUANTITIES  VH 

GEO 

720 

IF  (Jp.lC.C)  KPINT  ??5 

GEO 

720 

no  45  K- 1 »K  MflX 

GEO 

740 

45 

W{ K) =0. 

GEO 

750 

no  ?6  t=j 1 1 J<? 

GEO 

760 

xi«7  ( I) 

GEO 

7  70 

X2  =  2 ( I* 1) 

GEO 

7  60 

IF  (I.EQ.Ji)  yjsMi 

GEO 

79C 

IF  < I .  EQ . J? )  X2=H? 

GEC 

600 

C7* X?-X1 

GEO 

MO 

IF  U.EQ.NU  7-  2  (  I)  “ 7 ( I~1  ) 

GEC 

620 

OS-  0  7 

GEO 

630 

C 

UPHAPP  TRAJECTORY 

GEC 

640 

RXs (RF  +  X1) f  (Pf*X 

GEO 

650 

theta=asin(  «>h>/ca 

GEO 

660 

f5HI=flSTN<cPFI*RX) /CA 

GEO 

670 

PFT=THFT/>~PHT 

GEC 

660 

SALP  =  RX*fpm  T 

GEO 

690 

IF  (SPHT.r.r.l.E-tn)  05  =  (RE»XEI*S  IN  (PET  'CA)/S  PHI 

GEC 

900 

RE  T  A  =  9E  T  fl  +  QfT 

GFO 

910 

PSI=PFT  A tFH T- ANGLE 

GF.  0 

520 

pHi=ia^, -phi 

GEO 

530 

sR-sp+rs 

GEC 

940 

JExTPA=0 

GEO 

950 

00  7 C  K  =  1 ,  K  MA  X 

GEC 

560 

EV-DS*CH(K  ,  ]> 

GEO 

570 

IF  (I.EO.Ml)  CO  T9  5E 

GEO 

930 

IF  (f H(K, Jt ,EC.C .",OP, EM< , V+lt .69.0. 0)  GO  TO  55 

GE  0 

5  90 

IF  (AOS  <  <f  H  (K,I) /EH(X,  Iti)  ) -1 .0)  ,LT.l.  OF-6)  GC  TC  60 

GEO 

10C0 

EV=C'S»(FH«K,I)-FH(»:,I*l))7ALOG(EH(K,I>/EH(K»T*l)) 

GEC 

10  10 

GO  TO  GO 

GEO 

1  C*  2C 

50 

IF  <FH( K t I)  * F C , r )  go  TO  55 

GEO 

10  30 

IF  <  rM ( < . I - 1 )  .EQ.0.01  GO  To  55 

GEO 

1040 

IF  <0BS(< r9(K,I-l> /FH(K,I) ) -1. 0) . LT,t, OE-6)  GO  TC  60 

GEC 

1050 

FV*EV/ALOG(FH  (K,  I-D  /  :H(K,  I)  ) 

GEO 

1060 

GO  TO  50 

GEO 

10  70 

^5 

F  V=  0  • 

GEC 

1  C  8  0 

53 

VH<K)=VM(X) +£V 

GE  C 

i  C  90 

IF  (  T.-Q. JS^U^j  60  to  65 

GFO 

11  00 

WLAY(I,K>  =  fV*W(K> 

GEO 

1110 

W(<  )  =  0. 

GEC 

U£0 

GO  TO  »- 

GE  C 

1120 

65 

W  <<) =EV 

GEO 

1 1  40 

IF  (Jl.MF'Jc)  GO  to  79 

GEC 

1150 

VLAY  (  JC4-1  ,K)  =  W(<) 

GEO 

1  i  6ii 

W (K  )  -  0. 

GEO 

1  1  70 

JEXTPA=1 

GEO 

1180 

70 

CONTINM- 

Gt  C 

1190 

IF  (Jd.FC.o)  fpinT  I,  XI,  (Vmi)  ,L=ltC)  ,  P^I,P>*I  ,EETA, THETA, SR 

GE  0 

1  2  CO 

HiG 
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IF  (JP.EP.D)  PRINT  ?C0,  X2,  (VH(L)  ,L=  10  , 1  «t>  ,  DS 
If  tl.GE.MLJ  CO  TD  7F 
IF  UM.5Q.J2)  t  K  (  9*  I *■  1 )  =¥ N 
IF  (I.CQ.Jl)  lH(Q,I)=Tx1 
RN=EH(9  ,T  +n/?HI«,n 
SPHI=SPHT*R>/RN 
IF  (SALP.GF.PN)  SPHT=SALP 
75  CONTINUE 
GO  TO  190 
H0RI7ONTAI  PATH 
60  DO  85  K= 1, KPAX 
W<K)=RANGE*FH<K, 1) 

IF  (H.GT.O)  MK) -RANGc*TX<  k) 

VHUO  *W  (K) 

85  CONTINUE 
GO  TO  200 
90  CONTINUE 

OcHNWARU  TRAJEFTOPY 
K2=  0 

IF  (NP1  •  f  0*  t)  J1=J1-1 
J  2=  J 1  +1 
J=J1+1 
YN 1=Y N 

IF  (H2.GT.7  (Ji+i)  .nR.Hl.EQ.H2)  GO  TO  100 
IF  <NPl.E0.1.ANP,H?,Gt  .2(J1M>>  60  TO  100 
CALL  POINT  (H2,YN, N, NP2,IP> 

CO  95  K= 1, KHAX 
95  W(K)=TX(K) 

TX?  =  T  X( 9 ) 

YN2=YN 

IF  (H2.LT.Hl)  H=H2 
J2~N 

IF  C  J1  ♦  €0*  J  ?)  TX?=TX1  +YN2-EH(9,N) 

IF  (H2.GT.Hi)  TXi  =  TX2 
IF  (Jl.  C0.JJ.AN0.H2.lt  .HI)  YNl^TXZ 
100  A0  =  <  RE*H 1)  *  CPHI* YK|  l 

IF  (H2.GH.HD  Y  N  2  ~  Y  N 1 
DO  1 C  5  T - 1 , J1 
HMIN=A0/FH(P, I) -PE 
IF  (1,59. Jl)  HMIN  =  fir/YCi-^F 
JMIN=I 

IF  (HMIN.LT .7(1*1) )  GG  TO  110 
105  CONTINUE 
110  X=  H  M I N 

IF  (HHTN.LE  .0.  0)  GO  TO  120 
CALL  POINt  <X,VNfN fMO, IP) 

JMIN- N 
TX3=TX( 9) 

IF  < J2.EQ.N .OF.Jl. FO.N)  TX  3=YN2*  T  M9)  ~E  ME,  N) 
IF  (TX3.LT.C.0)  TX  7=  T  X  ( °) 

JF  (  Jl.  TO.  N  .AMO#  H2.GF,  Hi)  GOTO  115 
HMIN-r  A0/TX3  -RF 

IF  <AqSCX-HMTNl.GT.n.,-OPl>  GO  TO  110 
115  IF  (Jl,  cO.N.ANO.H?.GE.  HD  YN1=TX3 
IF  (J?, E0.N.ANP.J1 .  NF  .  J?)  YNP=TX3 
IF  (H  ?,  G1'  «  H  1  )  T  X  ?  =  T  X  * 

IF  (H2.GF.HJ)  J2=N 

IF  (H?.GF.Hl  .CR.H^.LT  •HMI’i)  H=  HHIN 
P^INT  ?S0,  HMIN 
IF  (H2.LT.HMN)  JH  =  N 


GEO 

1210 

GEO 

1220 

GEO 

1230 

GEO 

12  AO 

GEO 

1250 

GEO 

1260 

GEO 

1270 

GEO 

1280 

GEO 

1290 

GEO 

1300 

GEO 

1310 

GEO 

1320 

GEO 

1330 

GEO 

1  3  AO 

GEO 

13  5  0 

gec 

1360 

GEC 

1370 

geo 

1300 

GEC 

1390 

GEO 

1A  GO 

GEC 

1 A 10 

GEO 

1 A  20 

GEO 

1 A  3  0 

GEO 

1  A  AO 

GEC 

1 A  50 

GEO 

1  A60 

GEO 

1^70 

GEO 

1 A  C  (1 

GEC 

1  A90 

GEO 

1500 

GEO 

1510 

GEC 

1520 

GEO 

1530 

GEO 

15  AO 

GEC 

1550 

GEO 

1560 

ge  0 

1570 

GEO 

1560 

GEC 

1590 

GEO 

1600 

GEO 

1610 

GEO 

1620 

GEC 

1630 

GE  0 

1 6A0 

GEO 

If  50 

GEO 

1660 

GEO 

1670 

GEO 

1660 

GEC 

16  9  0 

GEO 

1700 

GEO 

1710 

GEO 

1720 

GEO 

17  3  0 

GF  0 

1740 

Gf  C 

1  75C 

GEO 

1760 

GEO 

1770 

GEC 

1760 

GEO 

1  790 

GEO 

ieoo 
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IF  (H3.IT.HMN)  PRINT  2?0,  HHIN 

GEO 

i«io 

GO  TO  125 

GEO 

18  20 

120 

PRINT  250,  MNTN 

GEO 

1330 

IF  <H2.LT. Hi)  GO  TO  1 7S 

GF  0 

1840 

IF  (ITTPf , eQ. T,0». H?.GG,H1 )  PRINT  255 

GEO 

18  50 

IT YPE=2 

GEO 

I860 

TX2=EH<9,1 > 

GEO 

1870 

JMIK=0 

GE  0 

18  80 

J2=  1 

GEO 

1890 

H2  =  G. 0 

GEO 

19  CO 

H=  0  •  0 

GEO 

1910 

£  »*  ¥  ¥ 

NOW  DFFINF  VERTICAL  PATH  QUANTITIES  VH 

GEO 

19  20 

125 

IF  IJP.  0)  PRINT  ?2^ 

GEO 

1930 

JSTOR=J -1 

GEO 

1540 

00  155  1=1, Nt 

GEO 

1950 

J- J-l 

GEO 

15  60 

REF=EH(9,J) 

GEO 

1970 

IF  (I.EO.l)  RFF=YN1 

GEC 

1980 

IF  (I.EQ»1*ANC,K2.£‘'«  t>  REF  =  YN2 

GEO 

.15  50 

IF  J2,  ANP.  K2.EO-  0)  PEF=Tx2 

GEO 

2CCC 

IF  4I.NE.1)  Xl=7CJ*l> 

GEC 

2010 

X?=7 { J> 

GEO 

2020 

IF  < J.EQ, J2. AN0,  K2.EQ. 0)  X2=H 

GEO 

20?0 

IF  (J  ,EO,JKIN.ANr.K2.FQ.l)  X2=HMIN 

GEC 

2040 

HM= <P£*X1) *5hHI-vf 

GEO 

2050 

IF  (HM,GT.7(J).ANn.HM.GT.X2)  X2=HH 

GEO 

206D 

RX=<PE+X1)/ (PE*X?) 

GEO 

2070 

0S=X1-X? 

GEO 

2080 

ALP=P0. 0 

GEO 

2090 

THET  =  ASIN(SFHI)  /c* 

GEO 

2100 

SALP=RX*SFMJ 

GEO 

2110 

IF  UBS  tXZ-HH)  .'".I.  1.  PE-51  ALP=ASIN(SALP)/CA 

GFC 

2120 

9FT  =  ALP- THF  T 

GEO 

2130 

IF  (SPHI.C-T.l  .0r-10)  PS  =  <iiF*X2)*SIN<eET*CA)/5PHI 

GEO 

2140 

THET  A  =  18  0, 0-THET 

GEO 

2150 

8ETA29FTA  +9  FT 

GEO 

2160 

PSI-fiETA-ALP-ANGLF«-lPfl,  0 

GEO 

2170 

SR=SP+0S 

GEC 

2180 

00  1 6  0  K=l, KM  AX 

GEO 

2190 

AJ=EH(K,J) 

GFC 

2700 

BJ=EH(K,  J  +  l  ) 

G£  0 

2210 

IF  (J.F0.J1)  PJ=F(X) 

GEO 

2220 

If  (J,EO,«J2.  ANO,  M3, IT.  H 1,  A  N C. H2 . G T ♦ 0 . 0 > 

A J=  W ( X) 

GFO 

2230 

IF  (J.EQ. JMIN .ANP.H2.GE -HI)  AJ=TX(K> 

GEO 

2240 

IF  (J.Pfl.JNIN.ANO.  ,LT,1.0E-5) 

AJ-T  X(K) 

GEO 

2250 

IF  (K2.EO.C)  GO  TO  13* 

GEO 

2260 

IF  (J.FO.J?)  FJ=  W ( K ) 

GEO 

2270 

IF  CJ.F0.JHIN)  A  TX ( X ) 

GEC 

2280 

1  30 

IF  (AJ.EO.O .0.00, BJ.  EO.C.t)  GO  TO  140 

GEO 

2250 

IF  CABS ( (AJ/PJI-l.  H)  ,  IE .1.  OF-fi)  GC  TO  135 

GFO 

23  C 0 

f V=DS*  C  A J-6 J)  /ALOGCAJ/BJ) 

GtO 

2310 

GO  TC  145 

GFO 

2320 

135 

EV=0S*A J 

GEO 

2310 

GO  TO  1<«5 

GEC 

2340 

1  40 

EV=0 . 0 

GEO 

2350 

1  45 

VH  (  JO  -VHCn  cv 

GEO 

2360 

150 

WLAY<J,K)=EV 

GFO 

23  70 

IF  (JP,r:Q,0)  PRINT  ?4S,  J, X  1 ,  < VH ( L> , L  =  1 

,8), PS  I, ALP, PETA , THETA, SR 

GEO 

2380 

IF  CJP.EO,*))  nRT  NT  ?«*0,  X2,  (VH<t )  ,L  =  10, 

14), D  S 

GE  0 

2390 

IF  (JtFO.J7  •  A  K  0  *  H  ? . G £  •  H  J)  GO  TO  180 

GEO 

^400 
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IF  (J.EQ.JMIN.ANO.KZ.^Q.ll  GO  TO  170 

GEO 

2410 

IF  (J.NE.l)  PN=9PF/-H(9 ,J-1) 

GEO 

2420 

IF  <J  .EQ. J2+1 )  RN=RFF/TX2 

GEO 

2430 

IF  (J.EQ. J2.AND. K2.EG.0)  ?N=REF / YN 2 

GEO 

2440 

IF.<  J.EQ.  <  ANr.KZ.EQ.l)  RN=REF/TX3 

GEO 

2450 

IF  (SALP.GP.RK)  PS  =  1 «  0 

GEO 

24£0 

$PHI=5AL^*Ph 

GEO 

2470 

IF  <J.EO,J2*ANO.K2.EO.  0)  GO  TO  160 

GEO 

2460 

155 

CONTINUE 

GEO 

24  =  0 

160 

IF  (HMIH.LE .0 .0)  GO  TO  190 

GEO 

2500 

IF  (LEN.EO.C)  PRIST  260 

GEO 

2510 

IF  (LEN.EO.C)  GO  TO  190 

GEO 

2520 

IF  (LEN.EO.l)  PRINT  265 

GEO 

2530 

*2=1 

GEO 

2540 

Xl=X2 

GEO 

2550 

IF  (APS (Xl-WMIN)  .LF\  0. 001)  GO  TO  190 

GEO 

2560 

H=HMIN 

GEO 

2570 

J=J2*i 

GEO 

2560 

IF  (NP2.EQ,  1)  J=J-i 

GEC 

25  50 

P=RETA 

GEO 

2(00 

PH=160*0-ASIN(SPHI)/Cfl 

GEO 

2610 

TS=SP 

GE  O 

2  6  20 

PS=PSI 

GEO 

26  30 

OO  165  K=ltKMAX 

GEO 

2640 

165 

E  (K  )  =  VH  (K  ) 

GEO 

2650 

GO  TO  1?5 

GEO 

2(60 

170 

BET  A=2,*?FTA-p 

GEO 

2(70 

PSI=2.*P$J-P$ 

GEO 

2690 

SR=  2 *  * 5R-T S 

GEC 

2690 

c 

LONG  PATH  ,  T  A*c  N 

GEO 

2700 

PHI =PH 

GEO 

2710 

OO  175  K=1,KMAX 

GEO 

2720 

175 

VH(K)=?.*VH(K)-E(K) 

GEO 

2  730 

GO  TO  190 

GEO 

27  40 

180 

DO  185  K=1,KMGX 

GEO 

2750 

105 

VH(K>=2n0»VH(K) 

GEO 

27(0 

BET  A=  2* 0*PETA 

GEO 

2770 

SR*Z.0»SR 

GEO 

2790 

IF  (H2.EQ.H1)  GO  TO  190 

GEO 

2790 

rn=txi/yni 

GEO 

26  00 

SPHI=SIN(ANGLE*CA> 

GEO 

2610 

IF  (SPHI.LT.RN)  S»HJ>SPHI/RN 

GEO 

26  20 

GO  TO  39 

GEO 

2630 

190 

CONTINUE 

GEO 

2640 

IF  ( ANGLc,r,T  .9  0.  0)  PRINT  215,  HM 

GEO 

2650 

CO  195  K=1,KMAX 

GEO 

2660 

H  (K  )  =  VH  (K  i 

GEO 

2670 

195 

CONT  INIJE 

GEO 

seeo 

200 

WRITE  (6,22n 

GEO 

2690 

HRITF  ( 6 , 2 8  n) 

GEO 

2500 

WRITE  (6,230)  (W (I) , 1=1 ,8) • W( 10) , W < 11) 

GEO 

2510 

IF  (fc-  75  ,f.T  ♦  0.  0.  AND.  TCH  (1) ,  i.F.  7)  W ( 15)  = W ( 15) /W  (7 ) 

GEO 

2920 

IF  (W(17)  ,GT  .0 .0. ISO. ITK  (1) . GT ,7)  W ( 1 6 )  =  w ( 16 ) / H( ? 2) 

GEO 

2930 

205 

WRITE  <6,?7C)  (W(I), 1=12,15) 

G  -  O 

29  hO 

1=1 

GEO 

2950 

210 

RETURN 

GEO 

2960 

c 

GEO 

2970 

215 

FORMAT  (7MC.3) 

GEO 

2960 

220 

FORMAT  r/10X,  ?BH  lOjIVALEST  St_A  LEVEL  ABSORBER  AMOUNTS/  /21X , 

11ZH  HGEO 

2990 

1ATER  VAPOUR  02  ETC  •  OZONE  NITROC-EN  <CCNT>  H20 

(CCKGEO 

3  000 

169 
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2T)  MOL  SCAT  AeRI  020N  E  (U-V  ) /24  X  ,  7HGM  C  M -2 , 1  OX  ,  2  HKGE  0 

3H,  10X.5HATM  CM  ,irx  ,JHKM  ,9X  ,7HGH  CM  -  2,  1  OX ,  2HKM.  1 1 X  ,  5  X,  1  0  X,  6H  AT  H  CHIGEO 
225  FORMAT  (1H1  ,/10Xf20H  VERTICAL  PROF  I  L  ES, /f  ,  1 X,  2HI D  ,  3X ,  SHALT  ,  EX  ,  3HGE  0 
1H20.7X,  4  HE  0  2*  ,  6X  ,2H03 ,  9X.2HN2  ,6X,8  HH2  0  (10M>  ,  AX,  4HH0LS.6X,  4HAER1,  5XGEO 
2,6H03UIVI  ,5X,’HeSI,6X,3HPHI,6X,4HeETA,4X,5HTHETA,4X,5HPANGE,/,14X,GE0 
35H  ,  AX,  7HH20  (AM)  ,  6X  ,  4HHN0  3 , 6X  ,  4HAE  R2 .  EX  ,  4HAE  R  3  .  6  X  ,4  H  AE  R4  ,  3X,  ,5GEC 

48X  ,  6  H  OP  A  N  E-  E  /  /  I  GEO 

230  FORMAT  f/l"X,8H  H<l-e>=a<E14.3)/?4X,E14.3,2«X,E14.3/>  GEO 

235  FORMAT  <69H  TRAJECTORY  MISSES  EARTHS  ATMOSPHERE.  CLOSEST  OISTAMCE  GEO 
i  OF  APPROACh  IS,F  10.2,  IX,/,  IX,  18HENO  OF  CALCUI.AT  ICE)  GEO 

240  FORMAT  <4X,Ff.3,11X,lP5ElO.3,56X,0PF7.  2,/i  GEO 

245  FORMAT  < 1 4 , F 8 . 3,  IP 8E 1 0 . 3, 0 P4F 9. 4 , F 7 . 1 )  GEO 

2  50  FORMAT  (EH  HM  IN  =  ,F10.3)  GEO 

255  FORMAT  < F 4H  PATH  INTERSECTS  EARTH  -  PATH  CHANGEC  TO  TYPE  2  WITH  H£GEO 
i  =  0.0  KM)  GEO 

260  FORHAT  <84H  CHOICE  OF  TWO  PATHS  PCR  THIS  CASE  -SHORTEST  PATH  TAKENGEO 

1.  FOR  LONGFR  PATH  SET  LEW  =  1. )  GEO 

265  FORHAT  (85H  CHOICE  OE  TWO  PATHS  FOR  THIS  CASE  -LONGEST  PATH  TAKEN. GEO 

1  FOR  SHORT  PATH  SET  LEN  =  0  1  GEO 

2  70  FORHAT  (74H  H2  WAS  SET  LESS  THAN  HMIN  AND  HAS  BEEN  RESET  EQUAL  TO  GEO 
1  HHT N  I.E.  H2  r  ,F10.3>  GEO 

275  FORMAT  </ 30 X, 4H A E°2 ,  1 0 X,4M A ER 3 , 10 X , 4H A ER4 ,5 X  ,9HR  .H .  MEAN ,/ 10X  ,  1 0 H  GEO 
1WI12-15)=,4(1PEI*>.  7)/)  GEO 

280  FORMAT  I 1 18X, 11HNITRIC  ACID)  GEO 

END  GEO 


3010 
3020 
3030 
3040 
3  C  5  C 
3060 
3070 
30  80 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
32  00 
3210 
3220 
3230 
32  40 
3250 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  fiNGL  (HI ,H?  ,  ANGLE, B1 

,LEN,M, NL,RE,FI,ML) 

ANG 

10 

COMMON  /MDATA/  Z  (  1 4)  ,  P  (  7, 3  4)  ,  T<7 , 34)  ,  rf  H  (7  1 341  »H  0  <  7 , 31.) 

ang 

2U 

,S£flSN<2) ,VULCN(5) ,VS6(9>  , HZ  < 15 >  , HMI X ( 34 ) 

ANG 

’0 

COMMON  RE  LHUH ( 34)  ,  HS TOR  ( 3!* )  ,£H  ( 15 , 34)  ,  ICH(4>  ,VH<15)  ,TX<15) 

ANG 

40 

COMMON  WL»Y  (*4,15)  tWP»TH<5 fl,15> 

,TEPY(68) 

ANG 

50 

COMMON  A  BSC  (4  ,40  )  ,  EXTC  <4. 4  0  ) .  VX2  (4  0) 

ANG 

60 

>*ANG 

70 

ANG 

ao 

THIS  SUBROUTINE  CALCULATES  THE 

INITIAL  2ENITH  ANGLE  TANGLE) 

ANG 

50 

TAKING  INTO  ACCOUNT  REFRACTION 

EFFECTS  GIVEN  HI, HE,  ANO  eE  TA 

ang 

ICO 

(WHERE  BETA  IS  T HF  EARTH  CENTRE 

ANGLE  SUB  TEN  CEO  BY  HI  ANO  H2  >, 

ANG 

1  M 

ASSUMING  7H  F  REFRACTIVE  INCFX  TO  St  CONSTANT  IN  A  GIVEN  LAYER. 

ANG 

120 

FOR  GREATER  ACCURACY  INCREASE  THE  NUN6ER  OF  LEVELS  IN  THE  MODEL 

ANG 

330 

ATMOSPHERE, 

AhG 

140 

ANG 

150 

THIS  SUBROUTINE  C a N  «c  REMOVEO 

FROM  THE  PROGRAM  IF  NOT  REQUIRED. 

ANG 

160 

*v*******«*,»»«* »»«»»»**+»*«»»**+**++♦»¥« »*#*+*»*****«v*****v+»*«*ANG 

170 

IP  =  99 

ANG 

ieo 

CA=PI/l*fl. 

ang 

ISO 

Xl=REfHl 

ANG 

200 

X2  s  RE ♦  H  2 

ANG 

210 

LE N  =  0  . 

ANG 

220 

IT  =  0 

ANG 

c  30 

B1=P1*CA 

ANG 

240 

TANG=X?*SIN  <B1)/(X  ?*CO$  (01) -XI) 

ANG 

25  0 

THET  =  AT  AN  (T  AND 

ANG 

260 

IF  (THET.LT.0,0)  THCT  =  T  HET  +PI 

ANG 

270 

SPHI=SIM(THET ) 

ANG 

280 

ANG=THf T/CA 

ANG 

2S0 

TN=THET 

ang 

300 

TM=TN-0.S*CA 

ANG 

310 

ANGLE=tH£T 

ang 

3  20 

FBT  =  0 • 

ANG 

330 

RET  A=0. 

ANG 

3  40 

BET  1=  0 

ANG 

350 

BET  2=  0 

ANG 

360 

FBTlrO 

ANG 

370 

FBT2-0 

ANG 

380 

F  ST  3-0.  0 

ANG 

3S0 

IF  (P1.LE.0,0)  GO  TO  10 

ANG 

40Q 

>-2.*THET 

ANG 

410 

IF  <Y-PI.GT.1.0F-fl)  GO  TO  45 

ANG 

420 

IF  (IP, EO, 100)  GO  T0  10 

ANG 

430 

XMIN=X2*r0S  (Pl)-RE 

ANG 

440 

IF  (XMIN-H1)  40,20,20 

ANG 

4  50 

HM IN=M? 

ANG 

460 

H?  =  HI 

ANG 

47  0 

HI =HH IN 

ANG 

4  80 

ANGLE=0.5*PI 

ANG 

4:0 

THET= ANGLE 

ANG 

5  00 

SPH 1=1.0 

ang 

510 

mNG=ANGLF/CA 

ANC- 

52G 

IP=100 

ANG 

*  30 

CALL  POINT  (Ht,YN, N,  NP, IP) 

ANG 

540 

J1=N 

ANG 

550 

T X 1 =T  X  (  9) 

ANG 

560 

CALL  POINT  (HZfYH,N,NP  ,IP) 

ANG 

570 

IF  (NH.EO.l)  N=N-1 

ANG 

500 

J  ?-N 

ANG 

5S0 

IF  (J1.EO.J2)  TX1=TX1+YN*EH(9,J1) 

ang 

600 

171 
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30  CO  35  J= J1 , J2 


X1  =  R£>7(J) 

ANG  610 

X2=RE+7t J+i) 

ANG  (20 

IF  (J.PQ.J1)  X1=R£*H1 

ANG  630 

IF  (J.FO.J?)  X?tRC*M? 

ANG  640 

SALP=X1  »SPMI/X7 

ANG  650 

ALPSASIN  (5 A [_p ) 

«NG  6  6C 

RN=FH(9  . J*l)/5Ht  9,  Jl 

ANG  670 

IF  (  ( J*  1  )  ,  EQ.  J2)  RN=XN/£h<9  ,J  ) 

A  NL  690 

IF  (J.EQ.Jl)  CN»EH(9,  J+D7TX1 

ANG  6  CQ 

IF  ( (Jtl) . FC. J2. ANP. J.EQ.J 1 )  RN=YN/TX1 

ANG  7  to 

0ET=THFT-AlC 

ANC  710 

FB^-TAN(ALP) 

ANG  720 

if  (J.NE.Ji)  FP=  FP6T  AN  (THET  ) 

ANG  730 

F9T=F9T(F9 

ANG  7411 

SET  A=9ETAH)tT 

ANG  750 

thi*thet/ca 

ANG  760 

G£  =  9ET/CA 

ANG  770 

C=ALO/CA 

ANG  700 

IF  (  K2«  EQ,  RE  +  H2)  2=ol-aLP 

ANG  790 

IF  (SALP.GE.RN)  9N=1. 

ANG  000 

SPHI=  SALP/PN 

ANG  010 

THETs  ASIN(SFHI) 

ANG  020 

35  CONTINUE 

ANG  B30 

IF  (PI. LE. o.qi  go  to  i25 

ANG  040 

GO  Tp  H5 

ANG  050 

40  CONTINUE 

ANG  06(1 

TANG=-TANG 

ANG  070 

ANGLE=BI-ANGIE 

ANG  0(0 

TNtANCLF 

ANG  050 

ANG=ANGLEXCA 

ANG  500 

IF  (Hl.LE.O.O)  GO  TO  15 

ANG  510 

45  CONTINUE 

ANG  920 

IP* 10 1 

ANG  930 

CALI  POINT  (HI  ,VH,  N,  NF1 -IP  ) 

ANG  540 

TX1=TX(9) 

ANG  550 

YN1*YN 

ANG  960 

IF  (NP1.E0.1)  N-N-l 

ANG  970 

J2=  NL 

ANG  980 

IF  (M.F9.71  J?=ML 

ANG  950 

J1  =  N 

ANG  1000 

J=J1-*1 

ANG  1  G  10 

IF  (H2.GE.M1)  GO  TO  65 

ANG  1020 

CALL  POINT  (H?,YN,N,NP,IP) 

ANG  1030 

TX2=TX( 9) 

ANG  1040 

YN2-=YN 

ANG  1050 

J2=  N  ANG  1060 


IF  (01. £0. JO)  TX2=YMl  +  TX(9)-EH(9»Jl) 

t*U  J- J  —  1 

Xl=RE*7(J*t> 

X2=RE+7(J) 

IF  (J.FQ.J1)  »1  =  »E+Ml 
IF  (J.FQ.J?)  X 7=  RE  .HP 
SaLFixl^SPHlXX? 

HMIN--X1  *SPH  1-CE 
IF  (SfiLP.LE  ,1,0)  GO  TO  55 
Sfl  L  F=SPH  I 


ANG  1070 
ANG  1080 
A  NG  1090 

ang  uoo 
ang  hid 

ANG  1125 
»NG  1130 
ANG  1190 
ANG  1150 
ANG  1160 


IF  (HMIN.GT.H2)  GO  TO  00 
55  AIP=ASTN  (5A|.P) 
TH£T=ASIN(5cHI) 


ANG  1170 
ANG  11(10 
ANG  1190 
ANG  1200 
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eETsALP-THET 
o£Ti-=  06*  T1  +  °f  T 
F9=TAN<  «LO 

IF  (J.N-.Jl)  F0=  Fq-T  AN  <TH£ T ) 

f eTl=FB^l +FP 

THl=THFT/rfi 

6E=eCT/C A 

AL=ALP/Cfl 

IF  <X2.  EC.PE«-N?1  C  =  PI-ALP 
R£F*fh<9»  J) 

IF  (J.EO.Ji)  Kcp  =  vN1 
IF  (J.5Q.J?)  *?£ F  =T  x? 

IF  <J.P0.1>  CO  TO  60 
RN=EH(9,J> /EH(9, J~l) 

IF  (J.EG.JI)  FN=YN^/EH(q,j-1) 

IF  <J.EG.J?+1>  RN=»EF/TX2 
IF  <  J .£Q. J?)  PN=PrF/YN2 
IF  ( SAL  °. GE . PN)  PS  =  i. 

SPHI=<5«1LP*RN 
IF  ( 7  ( J)  .LE.H2)  00  TO  60 
GO  TO  <59 
60  Xi=X? 

IF  <A0S(7<J >-F?> .LT.l .QE-lC.ANO.J.NE.l)  GC  TC  65 
GO  TO  70 
65  J*J-i 

Xi=Rf  ♦‘MJ  +  1) 

IF  (J.EQ.JI)  Xl=  RE  4-M 1 
IF  (J.E1.J2. flNO. J. NF. Ji)  X1=RE+H2 
70  X2=PE**<J) 

HHIN=yi*cPHl-RE 
IF  (  NMI N.  L  c  .0 . 0)  j  O  TO  110 
IF  (?CJ>.IT,H*IN)  GO  TO  80 
RFF=FH(Q, J) 

IF  (J.F.Q.J2)  REF  =  f  N 
SALP-Xi'5PM7/^2 
ALP=ASIN(S ALP) 

THET=ASIN (SPHT) 

PET=ALP-TMrT 

F6sT'.N(ALP)-TAN(THET) 

F  0T  2=F9T?+p° 

PET  2=9FT  ?40pT 
PHIN=9ETl+acT? 

AL=  ALP/ CA 
T  Hi  =  T  MET /T  A 
RN=RFF/SH(o,  J-l) 

IF  (SALP.cr.PNI  PN=1,C 
SpHI=S  AL^’RK 
GO  TO  65 

75  TX3=YNl*Yx<o)-cM(Q,ji) 

YN1  =  T  X  3 

TF  (ABS  (H?-7(JM1)  .L  P.l .  OE-5)  YNl=TX(9) 

IF  <A9SCMi-7CJ*11l  *1  c.l*0E-5)  YNt=TX(9> 

RN- 1*0 
GO  TO  P* 

0 0  CALL  POINT  (HMlN,YNt N,NF,IP) 

IP-  1 0  2 
T  X3  =T  X  (  9) 

IF  (J.EG.JI. AND. M?,GF.H1)  GO  TO  75 
IF  (J,cG»Jl  .Oc«J.FQ.J?)  TX?  =  YN2+TX(9)  “FH(C,  j) 

IF  (HMTN.rT.U^)  Tx-»rTX(9) 


ANG  1210 
ANG  1220 
ANG  1230 
ANG  1290 
ANG  1250 
ANG  1260 
ANG  1270 
ANG  1260 
ANG  1290 
ANG  1300 
ANG  1210 
ANG  1320 
ANG  1330 
ANG  1390 
ANG  1350 
ANG  1360 
ANG  1370 
ANG  1360 
ANG  1390 
ANG  1900 
ANG  1910 
ANG  1  <<20 
ANG  1920 
ANG  1990 
ANG  1950 
ANG  1960 
ANG  1970 
ANG  1900 
ANG  1  <.90 
ANG  1500 
ANG  1510 
ANS  1520 
ANG  1530 
ANG  1590 
ANG  1550 
ANG  1560 
ANG  1570 
ANG  1500 
ANG  1590 
ANG  16  CO 
ANG  1610 
ANG  1620 
ANG  1630 
ANG  1690 
ANG  1650 
ANG  1660 
ANG  16  7  0 
ANG  1600 
ANG  1650 
ANG  1 7  C 0 
ANG  1730 
ANG  1720 
ANG  1720 
ANG  1790 
ANG  17*0 
ANG  1760 
ANG  1770 
ANG  1 7  C  0 
ANG  1790 
ANG  1600 


Table  Al.  Listing  of  Fortran  Code  LOWTHAN  5  (Cont.) 


IF  ( J.FQ.  J1.AN0.HMTN.GT.H2I  GO  TO  IS  ANG 

RN=FFF/TX3  ANG 

IF  (SALP.GE  .RN)  RN=1.  ANG 

SPH I  =  S  A  LP*  RN  ANG 

X  =  X1»SPHI~RF  ANG 

CIF  =  A BS (HMTN-X)  ANG 

HMINpx  ANG 

IF  (OIF-i. CE-EI  86,85,80  ANG 

85  X  2=RE  fHHI  N  ANG 

THET=BSIN(SFHI(  ANG 

IF  (RN.EO.l.O)  F»TX=-TAN(TMET)  ANG 

IF  (RN.FO.l.O)  00  TO  90  ANG 

CNX= (TXX-1. P)  •»LOG< (TXJ-1, 0)/ (REF -1.0) >/<X2-X11  ANG 

F9T3=-TANtTPET>»tl."-l.C/(  1 . 0*T XJ/ < X2»0NX I )  )  ANG 

90  BET=0.r>*PI-THET  ANG 

PET  2=  BET  7*-BFT  ANG 

BMIN=«FT  1  t-PTTj  ANG 

IF  (H2.GF.HS)  GO  T0  UO  ANG 

BET=PET  1+c.  *P?T2  ANG 

C81=P1-Q£T 1  ANG 

CB2 -EFT -Pt  ANG 

08  3=ARS  (  p:iIN- Ft|  ANG 

IF  (09'x.O.T  .IB1.0NP.OB->.GT.OE1)  GO  TO  110  ANG 

IF  (CB2.  GT.  T°  I)  GO  If!  95  ANG 

IF  <OG2.GT.GBU  GO  T(l  no  ANG 

9£T  A  =  9ET  ANG 

FpT  =  FBT  1*2.  0*  (F  BT  2  +  F  pT  3)  ANG 

LENsi ,  ANG 

GO  TO  115  ANG 

95  PET  A=9ET  1*  nET  2  TNG 

F0T=FBTl+FnT2+FPT't  ANG 

GO  TO  115  ANG 

100  eETA*  2.  0*  (9FTUBPT  2)  ANG 

lEN-i.  ANG 

FBTs2.0»<FBTl+FBT2*rpT3)  ANG 

PRINT  130,  J,PETA.FOT,FBTl,F0T2,FeT3,TXl,YNl  ANG 

IF  (N2.E0.H1)  GO  TO  115  ANG 

IPrlPI  ANG 

IF  <NOl.E0.il  J1=J1U  ANG 

SPMI=SIN(»NGL6)  ANG 

IF  (7  <  J 1  *  1 )  .LE.H2)  GO  TO  105  »NG 

RN=  TX1 /YN1  ANG 

IF  (SPHT.GF.RN)  RN  =  1.  ANG 

SPHI-SDHI/PN  ANG 

THET=ASIN  (SFHI)  ANG 

GO  TO  25  ANG 

105  CALL  POINT  <  H2  ,  YN,  N,  N'F ,  IP)  ANG 

TX1=TXUYN-FH<9,  Jl)  ANG 

RN=TX1/YN1  »NG 

J2- Jl  ANG 

IF  (SPHI.GE.RNI  BN=1.  »NG 

SP  HI - Sp  HI  7°  N  AN  G 

THET=ASIN(SPHi)  ANG 

GO  TO  ’5  ANG 

110  BET  A=PCT 1  ANG 

len=p.  ANG 

FPT=FPTi  ANG 

115  THFT=ANGLF  * ( n  j-upt  A)  /(i.fFBT/TANG)  ANG 

OBETAsPfTfl/rA  ANG 

p=8ET1/CA  ANG 


1810 
1  8  2C 
1870 
16  90 

18  50 
1860 
1870 
I860 
1690 
1500 
1510 
1920 
1530 
1990 
15  50 

19  F0 
1970 
I960 
1550 

20  03 
20  10 
2020 
20  30 
2090 
20  60 
2060 
20  70 
2080 
20  50 
2100 
2110 
2120 
2130 
2190 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
22  90 
2250 
2260 
22  70 
2280 
2290 
2300 
2313 
2320 
2330 
22M 
2250 
2360 
2370 
2280 
23^0 
24  0  0 
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T  H1  =  T  HET/CA 

PRINT  !■»«,  FE^a,P^FTfl  ,F0T,  TH1  ,TflNG 

IF  (THFT . GT-TK.OR.  TMFT.LT,  TH)  THE T= < T N *TN ) / 2  . 

TH1=  THET/TA 

PRINT  PETl,e, F?T , TH1 

TN1=TN/Cfl 

TH1=TM/CA 

PRINT  1LC,  TN,TH,TNi  ,  TH1 
SPHJsSIN (THFT) 

TANG=TA  N (THFT ) 

IT=IT+1 

DBE  =  AR5  <91  -ncTA> 

OTH=ABSI ANGLE -THE T) 

IF  (IT.E0.lt)  THFT*'1.  c*(ANGl£*THET) 

IF  (XT.En.10)  GO  T0  1?0 

IF  (OBE.GT.  1.0E-7.MCI  .DTH.  GT.  1,  OE-7)  GC  TO  5 
120  ANGLE =THFT/rA 

PRINT  ANGLE  ,1  T 

RETUPN 
125  Hl=H2 

angle -c /c  a 

PRINT  1L*5,  ANGLE, IT 
RETURN 

130  FORMAT  Clf-ftiF.r.MlS,*) 

13*5  FORMAT  (14H  TCTAL  BETA  =  ,  E 14 .6,F  15.6,  7HP  KOT  =  ,E1A,€ 
1G.  6,5HTAWC.=  ,Fin.  f) 

140  FORMAT  (5F12,F) 

145  FORMAT  UHTENITH  ANGLE  =,F7.3,6CH  DEGREES  \ 

1  FROM  ^UFROUTHF  ANGL  ( I TT  ERA  T  I  ON,  I  3 , 1 H>  ) 

END 


A  NG 
ANG 
ANG 
ANG 
ANG 
ANG 
ANG 
ANG 
A  KG 
ANG 
ANG 
ANG 
ANG 
ANG 
ANG 
ANG 
ANG 
ANG 
ANG 
ANG 
ANG 
ANG 
ANG 
ANG 
ANG 

> 7H  THE!  = , FlANG 
ANG 
ANG 

RECOMPUTEC  ANG 
ANG 
ANG 


ooooooooooono 


Table  Al. 


Listing  of  Fortran  Code  LOWTftAN  5  (Cont.) 


c 


SUBROUTINE  RCINT  (  X,YN,N,NP,IP) 

REVISED  12  TEC  79 

COMMON  /C  ARC1/  NOnEL.THAZE,  IT  TPE  ,  LEN,  J  P  ,  I  It ,  Ml  ,M2  ,r3  ,ML ,  IEMISS,RC 
1  ,T60UNP, ISf ASN,IVULCN,VIS 
COMMON  /CART?/  HI, HZ , ANGLE , RANGE , BETA , WHIN, RE 
COMMON  /C  ARCV  V  1,  V  ?  ,  OV  ,  AV  M  ,C  0  ,  CM  ,H  II  5  )  ,  E  (1 5  )  ,0  A,  PI 
COMMON  /CNTPl/  LENST.KMAX,  H , I J, J1 , Jl , JMIN , JE XlRA , II , IKHA X , NLl , NP 1 
1  , IF INO,  Nl  ,  I  M.1"1 

COMMON  /NO ATA /  7 ( J 4>  , R {7 , 3 4 )  ,  T <7 , S4> , HH C 7 , 39) , HO 1 7, 34) 

1  ,  SEASNI  2)  ,  VULCNC5)  ,  VS8(9I  , HZ  (1  5 )  ,HMI X  (  3*  > 

COMMON  R  EL  Hitt  (74)  ,HSTOR  (34)  ,£  H  <  1  5  ,  34)  ,  I  CM  (I*  I  ,VH<15  i  ,TX(  15> 

COMMON  HIST  (34,1  SI  ,  WPATH<68 ,15)  ,  TPBVt  6  8) 

COMMON  APSC  <4,40),EXTC(4,I,0),VX2<40) 


SUBROUTINE  POINT  COMPUTES  THE  MEAN  REER,  INDEX  ABOVE  AND  BELOW 

a  given  altitude  and  interpolates  exponentiallt  to  determine  the 
EQUIVALENT  ABSORoIR  (mounts  at  that  altitude. 


X  IS  THE  HEIGHT  IN  OUESTION 

TX  ( 9 )  »NC  VN  ARE  HE  MEAN  REFRACTIVE  INDICES  A20VE  AND  BELOM  X 
N  IS  THE  LEVEL  INTEGER  CORPESECNCING  TO  X  OR  THE  LEVEL  BELOW  X 
NP  =1  IF  X  COINCIDES  HITt  MODEL  ATMOSPHERE  LEVEL  ,IF  NOT  NP  =  0 
TX(l-S)  ARE  ABSORBER  AMOUNTS  PER  KM  AT  HEIGHT  X 


N  =  NL 
NP=(! 

IP  (X.LT.O.O)  X=Z(1> 

IF  <X.GT.7tNL)»  GO  TO  20 

CO  5  1=1, NL 

N=I 

if  (x-znn  io,?o,5 

5  CONTINUE 
10  J2=N 
N=N-  1 
MM  i=  M 

IF (Ml.GT.O.ANO.H.LT. 7)  MM1  =M1 
MM2=  M 

IF<MZ.GT.C,ANC.M.LT.7I  ttt12«A2 
F  AC  =  <  X-  MN  >  )/  ( Z(  J2>  -  7 <  N) > 
FX1=P(MM1,M)»(P(MM1,J7)/P(MM1,N))**FAC 
TX1  =  T(MM1,N»*(HMM1,  J'>)/T(MM1,N))»*FAC 
WX1=WH(M»I2,N>  *(HH(MM2,J2)/WH<MM2,N)>  **FAC 
TX(  3>=rO*PXl/TXl-4.SEE-6*MXl*TXl*CW 

TX(  2)  cCO’PCMMt  ,  J?»  /I  (MM1,  J  2)-4.  56E-E*MH(MM2  ,  J2)  *T(MM1,J2)»CN 
TX  <1)=C  0*P(MM1  ,N)  /T  (MM1  ,N>  -4,  56E-6*  HH  I  MM2  ,N)  *T(  MM1  ,N)*CH 
TX(9)=0*5c-6*(TX(?)+TX(3|| 

TN=0. 5F-6*  (TX  <1>  *TX(3)  ) 

IF  (IP.En.O)  GO  TO 
OO  15  K=1,XMAX 
IF  (K  • c  Q,  S  )  GO  TO  IB 
TX(  K)  =G  *  0 

IF  <EH(K,N)  ,GT.  1000.  0)  GO  TO  IS 

IF  (  X.LE.10  0,  0)  TX(K1=EH(K,NI  *F  AC  »  ( £H  (  K  ,  J  2)  -  EH  <  K  ,  N )  > 

IF  (EH(K,N)  .EO.O  ,0.OR.EH(<  ,  J  2  )  .  EQ  ,  0 . 0  >  GOTO  15 
TX(K)  =EH(K,  N)  *(EH(  K,  J2)  /EH  (K,N>)  **FAC 
15  CONTINUE 
GO  TC  ->5 
20  NP= 1 


P  0  I 

10 

POI 

?0 

P0I 

30 

POI 

40 

POI 

50 

POI 

60 

POI 

70 

POI 

8  0 

POI 

50 

POI 

100 

POI 

110 

POI 

120 

POI 

120 

►POI 

1  4  0 

POI 

150 

POI 

160 

POI 

170 

POI 

180 

•POI 

190 

POI 

200 

POI 

210 

POI 

220 

POI 

230 

POI 

240 

POI 

250 

•POI 

260 

POI 

270 

POI 

280 

POI 

290 

POI 

300 

POI 

310 

POI 

320 

POI 

330 

POI 

340 

POI 

350 

POI 

260 

PCI 

370 

POI 

380 

POI 

390 

POI 

<<00 

POI 

<<10 

POI 

4  20 

POI 

430 

POI 

440 

POI 

450 

POI 

460 

POI 

470 

POI 

480 

POI 

450 

POI 

5  00 

POI 

610 

POI 

520 

POI 

530 

POI 

540 

POI 

5  5  0 

POI 

560 

POI 

5  70 

POI 

580 

PCI 

590 

POI 

600 
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IF  <10. £0,0)  CO  TO 

’0 

POI 

610 

00  25  K=lfK  f'fiX 

POI 

620 

25 

TX(K> -EH(K,  H) 

POI 

€  70 

30 

TX  (  9)  =FH(qtN)-lf 

POI 

640 

YN  =  0  •  0 

POI 

650 

CAROS  P  2-  0  NO  50 

THROUGH  59  ARE  NO 

LONGER  REQUIRED  PCI 

660 

IP  <N.GT.l)  YK*f H ( o 

'«  N-l)-l  ,  0 

POI 

6  70 

35 

CONTINUE 

POI 

660 

1“  CIP.E0.1)  PRINT 

45,  X,V ,NP,TX (9) ,YN 

,  IP,(T  X<K>  ,K  =  1V  fl)  POI 

650 

IF  (IP.FO.I)  PRINT 

4  0,  (TX  <  K)  ,K=  12, 14) 

POI 

7  00 

TX(9> =TX (Q) U. 

POI 

710 

YN=YN+i. 

POI 

720 

RETURN 

POI 

73U 

POI 

7  40 

40 

FORMAT  <//5X*llM  tx(  12-14>  =  ,3E10 . 3/) 

POI 

750 

45 

FORMAT  ( / » 2  TH  FROM 

POINtV  HEIGHT  =  ,f  10. 

4,6H  KM,N  =  ,  I3,4»H,NP=,  12, 20H.PQI 

760 

1REF .  INDEX  ABOVE  t 

BELOH  X=,Z£11.4,i(H, 

IP=  ,1  3  ,/, 12  X , 36HEQUIV#  ABSORPOI 

7  70 

Z PER  AMOUNTS  PpR  KY 

IT  X  =  ,!£10.3> 

POI 

760 

ENO 

POI 

7  50 
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Table  Al.  J.isting  of  Fortran  Code  FOWTHAN  5  (C'ont. ) 


SU8R0UTINF  EXA0IN 

EXA 

10 

E  X  A 

20 

LOADS  C/TINCTION  «NP  ADSORPTION  COEFFICIENTS  F  CR  THE  FOUR 

EXA 

30 

ASROSOl  ALTITUDE  PcG10nS 

EXA 

40 

EXA 

50 

COMMON  /C«°01/  MOOFL1THA2r1ITVFEILEN,JP,IM>Ml,ME,M3,ML,  IEMISS,R0 

EXA 

60 

1  ,TBOUNO,ISF»SN, IVUL CN, VIS 

EXA 

7  C 

COMMON  -'CARED/  Hl,H!>,ANOLE,RANGEfFETA,MMIN.RE 

EXA 

80 

COMMON  /CAFES/  V  1 ,  V>  ,  OV  ,  A  V  M  ,C  0,0  K .  W<  1  5  >  ,  E  ( 1 S)  ,C  A  , P  I 

EXA 

<0 

COMMON  /CNTFL/  LENST .KhAX.MO, I J, J1 , J2 , JH1 N, JEXT RA , IL , IKM AX , NLL ,NP 1EX A 

ICO 

1,IFIN0»NL,IKL0 

EXA 

no 

COMMON  /HDATA/  7<34>  ,P<7,34> , T<7, 34) ,WH<7,34> ,WC<7, 

34) 

EXA 

120 

1  ,SEASN<2> ,VULCN(R> , VCB <9> , H7 (15) , HMT X ( ?4> 

EXA 

130 

COMMON  *flHUM<3*0  ,  HS  TO*  <  34  )  « EH  ( 15  ,  34)  ,  ICH14)  ,VH<15) 

,TX( 15) 

EXA 

140 

COMMON  WL AY (*4,15)  , HP  AT  H 1 5  8  ,1  5)  ,T0PY  (68) 

EXA 

150 

COMMON  A  8 SC  (4,4  0),  FXK  <  4,4  0),  VXOI  40) 

EXA 

160 

COMMON  /£  XT  CTA  /  VX?  (40  I  ,* IJRFXT  (  4  0 , 4)  ,  RUM  BS  (  40 ,4)  , 

UR 6 E  XT (40,4), 

EXA 

170 

1 UR BA PS (40.4) ,CCNFXT( 40,4), OCN  OPS (40,4) ,TRCEXT(40,4) 

, TRO A  BS (40,4)  , 

EXA 

180 

2FG1EXTC4T) ,FG1ABS(4D) ,FG2i XT (40) ,FG2ABS(40) 

EXA 

190 

3.BSTFXT  (Rl  l  .PSTUBSIR  01  ,  AV3EXT  (R0>  ,AVOA0S<  R0>  ,FVO£XT  <R0 

EXA 

2(0 

4)  ,  F  VOAPSC40  1  ,  THFE XT(  4  0)  ,0i  FflBS  <  4  ft ) 

EXA 

210 

DIMENSION  oh’CNE  (4  ) 

EXA 

220 

OAT  A  (P HZON  F  C I )  ,  T  =  i ,  4>  / C.  ,  7C .  ,  80  .  ,  99.  / 

EXA 

230 

PRINT  9H,  (ICH(I  >,1=1,4) 

EXA 

240 

call  exthta 

EXA 

250 

00  5  1=1,40 

EXA 

£60 

5  VX  0 (I)=VX?( I) 

EXA 

270 

11=1 

EXA 

260 

IF  (IHA''F.EP.7)  T 1  =  2 

EXA 

250 

DO  8?  M=I1,4 

EXA 

3(0 

ITA=ICH(H) 

EXA 

310 

ITC=ICH(M>-7 

EXA 

320 

WRH=W(1  5) 

EXA 

330 

IF  (ICH(M> . FQ.*. AND.  M.NF.  1  )  WRH=70. 

EXA 

340 

THIS  COOING  COES  NOT  ALL'S  H  TRDP  RH  DEPENDENT  AEOVE  EM  t  7  ,  I ) 

EXA 

350 

DEFAULTS  TO  TROPOSPHERIC  IT  70.  PERCENT 

EXA 

360 

00  10  1=2,4 

EXA 

370 

IF  (HRH.LT.RH?ONE(T> >  GO  TO  15 

EXA 

380 

10  CONTINUE 

EXA 

3  50 

1  =  4 

EXA 

4  C  0 

15  11=1-1 

EXA 

410 

IF (HPH.GT.C  .O.ANO, WPH.LT.99.)  X= AlCGC 10 0 .O-WRH) 

EXA 

420 

X1=ALOG(1CO.P-RM79NP  (II)) 

EXA 

430 

X?  =  AL OG ( 1 0 0 . 0 -RH ZONE ( I) ) 

EXA 

440 

IF  <  WRH.GF  .  99.  0)  X=X? 

EXA 

450 

IF  (WRH.LF. 0.0)  X=X1 

EXA 

460 

DO  80  N=l,40 

EXA 

470 

AB5C(M,N>=0. 

EXA 

480 

EXTC  <M,N>=0  . 

EXA 

49C 

IF (  IT  A.GT .6 )  r0  TO  45 

EXA 

500 

IF  <  IT  A.  L  r.  0  )  GO  TP  PO 

EXA 

5  10 

RH  CFPFNDFNT  AEROSOLS 

EXA 

520 

GO  TO  ( 20,?r,25, ?5V7 n,35> ,  ITA 

EX  A 

530 

20  Y?= ALOG (RURPXT (N, I )) 

EXA 

540 

Yl=ALOG  (  PUR  EX  T  (N  ,  T  T)  ) 

EXA 

5E0 

7?=ALOG (RUR AP^ (N, T )) 

EXA 

560 

Z1=AL0G (PURABS(N,TI)  ) 

EXA 

570 

GO  TO  40 

EXA 

5  80 

2  5  Y2=ALOC(OrNEXMN,T>> 

EXA 

650 

Yl=ALOC  fOCNEVT  (N  ,11)  ) 

EXA 

600 
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?2=flLCG(CCN«e'<N,Tn 

E  XA 

6  10 

Zl  =  ALOG<OCN«BS(N,ITI) 

EX  A 

620 

GO  TO  <.0 

EXA 

630 

30 

Y2  =  «lOG(UPf>FXT<N,IM 

EXA 

6i(0 

Vl=JSLOG(URefXT(N,Tt)  ) 

EXA 

650 

z2=SL0G<Ufie'>es(N,it) 

EXA 

6  f  0 

Zl^ALOGOJPMP;  (N,II>  ) 

EXA 

6  70 

GO  TO  t" 

EXA 

6  a  o 

35 

Y2=  ALOG (TROFXT (N.II) 

EXA 

(c.O 

Yt^ALOGITKOEXT <N,TI> ) 

EXA 

7  CO 

?2sALOG(TkOAR5  <N,T  >) 

EXA 

710 

Z1  =  A10G<  TROFB'tN.II)  ) 

EXA 

rea 

40 

Y=Y 1 (Y2-Y1 )» (>-Xl*/ f X2-X1 ) 

EXA 

730 

ZK=Z  l«-<7  2-Z  1)  'tX -XII  /(X2-X1  ) 

EXA 

7<<0 

A3SC(H,N)  =  EYP(7K) 

EXA 

750 

FXTCtM.N)  =c  XP  (Y) 

EXA 

760 

GO  TO  80 

EXA 

7/0 

45 

If  <IT>.GT.14)  GO  TO  Z 5 

EXA 

7tO 

IF  (ITC.LT  •  1)  GO  TO  81) 

EXA 

790 

GO  TO  (RP, 55, 60, 65, 20, 65, TO),  ITC 

EXA 

aoo 

50 

ASSC<  M,  N)  pFGI  «BS<N) 

EXA 

Me 

EXTC<M,N)  =  FG1FXT  oh 

EXA 

£<0 

GO  TO  *0 

EXA 

6  30 

55 

08SC<M,N) =  F  G2  A  °S (M  t 

EXA 

£40 

EXTC<H,N>=FG?FXT<N) 

EXA 

£50 

r.o  TO  8  0 

EXA 

£60 

60 

APSC  <M,  N)  =  eSTABS  t'l  ) 

EXA 

870 

EXTCtM.N)  -nrTEXTtN) 

EXA 

£B0 

GO  TO  80 

EXA 

690 

65 

A8SC<H,N)---AV0APS(M) 

EXA 

5  60 

ExTC  <M,N)=AVOEXT (X) 

EXA 

910 

GO  TO  80 

EXA 

920 

7  G 

ABSCtft,N)=FVOAPS<X) 

EXA 

930 

EXTCtM.NI  -FVOFXT(N) 

EXA 

940 

GO  TO  80 

EXA 

550 

75 

APSCtH.NMOMCHRStN) 

EXA 

960 

EXTCtM.Nl s  O  HE  E  XT (N) 

EXA 

570 

ao 

CONTINUE 

EXA 

980 

as 

CONTINUE 

EXA 

5  90 

PRINT  45 

EXA 

1000 

PRINT  1O0,  (VXZtN)  ,(EXTC(X,N),A8SC(M,N)  ,H  =  1 , 4)  ,  N*I ,  4  0) 

EXA 

1010 

RETURN 

EXA 

EXA 

1020 
1  0  ?  D 

90 

FORMAT  <7H  ICH  ,41?) 

EXA 

1040 

95 

FORMAT  (40H  FX'TNCTICN  AND  ABSORPTION  COEFFICIENTS) 

EXA 

1050 

100 

FORMAT  (F10.4,8F10,4) 

EXA 

1060 

END 

EXA 

1070 
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SUBROUTINE  EXTDTB  *  EXT  1C 

ext  <c 

AEROSOL  EXTINCTION  A  NP  ABSORPTION  DATA  EXT  30 

EXT  40 

Common  /EXTrTA/vx?f4p)  ,mmxT<40,4)  ,rura6S<»«p,4)  ,uRe£xT  ua  ,4) ,  ext  50 
1URBAGS<40,4)  ,OCNEXT(40  ,4)  ,  PCNA0S  <40,4  )  .TRCEXT  ('  0  ,  4)  ,  TRO  A6S  l  4  0  ,  4)  ,  EXT  60 
2FGiEXT<40>f  FG1A3S<4C>  ,FG?:XT<  40)  ,FG2A«?S<40)  EXT  70 

3,  GSTExT(40>,r»STaP5(uC)^VrEXTt4(?)  ,AVOAfiSC40)»FVOEXT(4O  EXT  60 


4) ,F V0A9S (40) , TMFE XT < 4 0 > , DHr A0 S<4 0 ) 
OATA  (VX2<I),I=  1,  40)/ 


•  200  0  * 

•  ’00  0  , 

.3371  , 

.  56  00, 

2.000P, 

2.2500, 

2.5C0D, 

2.7000, 

4.9000  , 

5,  000  0, 

6.  5000  , 

6.00  00, 

7 .9  00  0, 

8.2000, 

a. 7CQ]  , 

9.  00  00  , 

11.0000. 

11. ECO?, 

1  2. 5000  ,  14,8000, 

lfli 5000, 

21.3000, 

25.0000'  30.0000, 

OATA  (RU«?EXT(  1, 1) 

,1-1 ,  43)/ 

1 

2.09291, 

1 .746*2, 

1.50500,  1 

.00000, 

2 

.14709, 

.13304, 

.  12234  , 

.13247, 

3 

. 09190, 

.08449, 

.  07661  , 

. 07026, 

4 

.04481, 

.04390, 

.12184 , 

.12658, 

5 

.07456, 

.0688'' , 

. 06032, 

.04949, 

6 

. 05722, 

.0*061, 

.  05177  , 

.04589, 

OATA  <*URFXT(t,2) 

,1= ly  40) / 

1 

2.  09544, 

1. 74165, 

1.59581,  1 

•  00  0  0  0, 

2 

•1C10C, 

,1 3606, 

,  12430  , 

.12222, 

3 

.09475, 

.08726, 

.  90G7S  , 

.07639, 

4 

.  (14  899 , 

.  04525, 

•  12165  , 

•  12741, 

5 

.  07  36  0  , 

.06880, 

.  0  6329  , 

. 06791, 

$ 

.06304, 

,06443, 

.  05533  , 

.04867, 

DATA  tRUP.EXT  (1,3) 

,1=1,  40 ) / 

1 

2. 0708>, 

1.71456, 

1.57962,  1 

.00000, 

2 

•  16456, 

.14677, 

. 1 3234 , 

.13405, 

3 

•104«1 , 

.09709, 

.08919 , 

.  0938  0, 

4 

•  U6Z4 

.  11905  , 

.12595, 

5 

. 07266, 

•  0  7044, 

.  07443  , 

.08146, 

6 

.  08  051, 

.0  7677, 

.06668 , 

.05747, 

DATA  ( RURF  X T ( 1,41 

,  T  =  1 ,  40)  / 

1 

1.66076, 

1 .4T886, 

1.40139  ,  1 

.00000, 

2 

.23468, 

.2C 77?, 

.18932, 

,  1734  B , 

3 

.16139, 

.15424, 

.14557  , 

.16215, 

4 

.  12  96  6, 

.12601, 

.13551 , 

.13582, 

5 

•  C987T, 

.10418, 

.1  3241  , 

.15924, 

6 

.15164, 

.  13B46, 

.  12563  , 

.11076, 

DATA  (RURA  Pc< I , 1) 

,1*1,  40) / 

1 

,  67196, 

.11937, 

•  08505  , 

•  05930, 

2 

.  01968, 

.0737C, 

. 02101  , 

.05652, 

3 

•0146? , 

.01310, 

.  01627  , 

•  0201 3, 

4 

.02823, 

.03962, 

.  06779  , 

.07285, 

5 

.02  557, 

. 0/342, 

.f 2177  , 

.02627, 

6 

.  02955, 

.03500, 

. *  3241  , 

. C  329  7, 

DATA  <RUPAPF< I ,21 

,1  =  1 »  40 )  / 

i 

.  6  2968, 

.10816, 

. 37671 , 

.05300, 

2 

.  01  829, 

.01899, 

•C1962, 

•  C  5525 , 

3 

.  01546  , 

.01  37  7, 

. "1627  , 

. 0?B5 2, 

4 

,028^5, 

.0‘t854, 

.  06684  , 

.07272, 

5 

..02816, 

•02616, 

.0  3101  , 

.03741  , 

6 

.03734, 

.03956, 

.03601, 

.03525, 

OATA  ( RUPA  9  5< I ,  M 

,1=1,  40)/ 

1 

.  51899, 

.re?78, 

. ^ 5815  , 

. 04082, 

FXT 

«0 

EXT 

100 

.6543, 

1.0600, 

1. 536  0  , 

EXT 

no 

3.QC00, 

3.3923, 

3. 75  C  0  r 

E  XT 

120 

6.2000, 

e.sooo, 

7. zono , 

EXT 

130 

9.2  000  , 

10,0000, 

10.5910  , 

EXT 

140 

15.0000, 

16,4000, 

17.2000, 

EXT 

150 

40.0000/ 

EXT 

160 

EXT 

170 

. 75203, 

.41943, 

.  24070  , 

EXT 

180 

. 11 196  , 

.10437, 

. 09956, 

EXT 

150 

,  07089  , 

.07196, 

.07791, 

EXT 

l  CO 

.12829, 

.091 52, 

.  0  8076  , 

EXT 

210 

. 05854, 

•  CEO  CO , 

•96962, 

EXT 

2  20 

*  04  3047 

EXT 

230 

EXT 

240 

.75316, 

.42171, 

.24323, 

EXT 

250 

. 13823, 

jllO  76, 

.  10  323  , 

EXT 

260 

.  07  797, 

.07576, 

.  079  0, 

E  XT 

2  70 

.  12770  , 

•  090  32, 

.07962, 

EXT 

280 

.  0  664  6  , 

.06639, 

.07443 , 

EXT 

290 

. 04519/ 

EXT 

300 

EXT 

310 

.  76095  , 

.43228, 

.25348 , 

EXT 

3  2  0 

.  20316, 

.128  73, 

.11506, 

EXT 

320 

.  09709, 

.  08791, 

.  J66ul, 

EXT 

340 

.  12348  , 

.08741, 

.  07703 , 

EXT 

3  c0 

.  08  810  , 

,08563, 

.08962, 

EXT 

360 

. 05184/ 

EXT 

370 

EXT 

3  80 

.00652, 

•  5  C  595, 

.32259, 

EXT 

250 

. 35114, 

•20006, 

.17306  , 

EXT 

4  C  0 

.  16766, 

.14964, 

.14032, 

EXT 

410 

♦13228, 

.11070, 

.09994, 

EXT 

420 

.16139, 

.15949, 

.15778, 

EXT 

42C 

. 09601/ 

EXT 

440 

EXT 

450 

.05152, 

.058 16, 

.05006, 

EXT 

460 

. 02785 , 

.01316, 

.00067  , 

EXT 

470 

. 02165, 

.02367, 

.03538, 

EXT 

480 

.  08  12  0, 

.04032, 

. 031 77, 

EXT 

450 

.03943  , 

.  031  14, 

.03696, 

EXT 

E03 

•  03380  / 

EXT 

510 

EXT 

520 

. 04684, 

.05335, 

-046i4, 

EXT 

520 

•  06816  , 

.  01652, 

.00867 , 

EXT 

540 

.  02  82  9, 

.02432, 

.03487, 

EXT 

550 

. 08Q38 , 

.03987, 

.03247, 

EXT 

560 

.  04029  , 

.  040  32, 

,04399, 

EXT 

5  70 

. 03563/ 

EXT 

5eo 

EXT 

590 

. 03570, 

.  041 58, 

.  03620* 

EXT 

600 
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2 

•  0151 X, 

.01481, 

. 01633 , 

, 05270  , 

.  13890  , 

.  1!  ?  4  9  4  , 

.00806, 

EXT 

610 

3 

♦  01 604 , 

,01562, 

•  0  1677  r 

.04316, 

.  04  36  7, 

.03013, 

.03443, 

EXT 

620 

* 

•02930, 

,03677, 

•06209 , 

. 36911, 

.  07475  , 

♦03892, 

.03494 , 

fcXT 

630 

5 

,  0351 

,03960, 

.05152  , 

.  06241, 

.  06  9  *7, 

. 06  2  C  3  , 

.06215, 

EXT 

€40 

6 

•  05614, 

.05209, 

>04608 , 

.  04156, 

.  04C95/ 

EXT 

650 

DATA  <  RURABS  <!»**) 

,1=1,  40 ) / 

EXT 

6  6  0 

1 

•  2194-v, 

,02848, 

.  0 1 943  » 

.01342, 

.  01171  , 

.  014  37  , 

.01323, 

EXT 

6  70 

2 

.01152, 

•01696, 

.01329  . 

.  06  100, 

.  24690  , 

,  05323, 

.01430, 

EXT 

660 

3 

.03361, 

.02949, 

•  C  2652 , 

.09437, 

.  085Q6, 

.  0  c3  48, 

.04627, 

EXT 

e«o 

4 

•  04363, 

•C4557, 

•C5381 » 

.05715  , 

.  05099  , 

.04861, 

.05253, 

EXT 

700 

5 

.061T1, 

.07437, 

.  10152 , 

.12019, 

.12190  , 

♦  11734, 

.11411, 

EXT 

710 

6 

•  10766, 

.0948  7, 

.08430 , 

•C7348, 

.  06861  / 

EXT 

720 

OATA  <  URtiE X  T  (  1  ,1  > 

,T=1,  40)/ 

EXT 

7  30 

1 

1.08015, 

1.6331  6, 

1.51867,  1 

.00000, 

.  77  7S5  , 

.  47095, 

.  30006, 

EXT 

740 

2 

•2139?, 

. 15405, 

.17886 , 

.18127, 

.16133, 

.14765, 

.  14000, 

Ext 

750 

1 

.  12714, 

•  11880. 

,  11234, 

.10  601, 

•  10500  , 

•IT Joi, 

.  10  342, 

EXT 

760 

4 

.  f»«766. 

.0864?, 

.  11937  , 

.12139, 

.12*97, 

.05757, 

.  0  9057  , 

EXT 

770 

6 

•  08595, 

.08*96, 

. 07563, 

.06696, 

,  07209  , 

.06042, 

.  0  7177, 

EXT 

780 

6 

.  05354, 

.06177, 

. 06373 , 

.04728, 

.  04061  / 

EXT 

790 

DATA  (URerXTCT.C* 

,T  S1  ,  40)  / 

EXT 

600 

1 

1. 95582, 

1 .64994, 

1.63070,  1 

•ocooc, 

.77614, 

.46639, 

.  25407, 

EXT 

810 

2 

. 21051, 

.10943, 

.1720? , 

.17209, 

.21410  , 

.15354, 

.14061, 

EXT 

f!  2  0 

3 

.  12726, 

.11661, 

•  1 1 C89  , 

•  11329, 

.  11323  , 

.14563, 

.1  0247  , 

EXT 

0  30 

<4 

. 08696, 

.08361, 

.12013, 

. 1?416, 

.  1Z30-.  , 

.09614, 

.  08842, 

EXT 

040 

5 

•  06487, 

.0826  5, 

,  C  8  361  , 

.00430, 

.08090, 

.08449, 

,08601, 

EXT 

850 

6 

.  07835, 

.  0  7  32  3, 

.  l  6367, 

*  C55  0  0 , 

.  04747/ 

EXT 

860 

OATA  (URBEXTa.-O 

,1  =  1,  40)  / 

EXT 

070 

1 

1*96430, 

1,64032, 

1.6?39?,  1 

. 00000, 

.77709, 

, 46253, 

.20650  , 

EXT 

000 

Z 

«  20310  , 

.17981, 

.16101  , 

,15614, 

.26475, 

•16456, 

•  1  3563, 

EXT 

89u‘ 

3 

.12215, 

.1136  1, 

♦  10500  , 

.11715, 

.11753, 

.10792, 

.09766  , 

EXT 

9  00 

4 

.08443, 

.00067, 

.10943, 

.1134?, 

.  11063, 

•  08703, 

.  0  8025  , 

EXT 

910 

5 

•  0  T  866 , 

.08032, 

."9101  , 

.1007?, 

.10  386, 

.  09943, 

•  09806, 

EXT 

520 

6 

•  09152, 

.  oe?4  7t 

.07152  , 

.06089, 

.  05253/ 

EXT 

c7r 

CATA  (U985 

XT  11,4) 

,1=1,  40)  ✓ 

EXT 

940 

1 

1 .  <*1266, 

1.33816, 

1.29114,  1 

.ooocc, 

.83646, 

.55025, 

.35342, 

EXT 

560 

2 

.  25285, 

.21576, 

,  18310  , 

.16215, 

.37854, 

.20494. 

.  16665  . 

EXT 

960 

3 

♦  14776  , 

,13b9?» 

.12943, 

.  155  7  5, 

.  16  709, 

.17513, 

.12481, 

F  XT 

570 

4 

♦ 11769, 

.  1  1494, 

.11487, 

•  11379, 

«  11100  , 

.09911, 

.09209, 

EXT 

980 

5 

,09342, 

,10120, 

.13177  , 

.15696, 

.15766. 

.15513, 

.  1520  3, 

EXT 

5  90 

6 

.  1457?, 

.13036, 

.  1  1705  , 

.  10411, 

. 09101/ 

EXT 

1000 

OATA  (URPA?S(T,1) 

,1  =  1,  40)/ 

EXT 

10  10 

1 

.7843?, 

.569/6, 

.54205, 

.  3618  4, 

. 2922?, 

.20886, 

.15658, 

EXT 

1020 

2 

.  12329, 

.11462, 

,  10747  , 

•11797, 

.  10025  , 

. €8759, 

,  03  184, 

EXT 

.  0  30 

3 

.07506, 

.  0  700  6, 

•  *)67/,i  , 

.06601 » 

.06544, 

. 06449, 

. 06665  , 

EXT 

1040 

4 

. 06276, 

.06949, 

. 07316, 

.07462, 

. 00101, 

. 05753, 

.05272, 

EXT 

1050 

5 

•  04899, 

.04734, 

#04  494  , 

.04447, 

.  05 13 3, 

. 04348, 

•  04443, 

EXT 

10  60 

6 

. 03994, 

.03901 , 

.05633, 

,03468, 

.03146/ 

EXT 

10  70 

DATA  (UR0/- 

:$< i,?i 

,1=1,  40)/ 

EXT 

1080 

1 

.690^2, 

.4936. , 

.45165 , 

,29741, 

. 24070, 

.17359, 

.13146, 

EXT 

10  50 

2 

.  1 P  ■* '  4 , 

,1'  .509, 

. *3025  , 

.10411 , 

.  15101, 

. 07000, 

.06949, 

EXT 

1100 

3 

.06'  f  0  , 

.06095, 

v  05P29  , 

.07171, 

.06797, 

•  069  75, 

. 06' 13, 

EXT 

1110 

4 

.  05  5fc  9, 

.0605  1, 

.a  7139 . 

.07494, 

.  07956  , 

, 05525, 

.05104  , 

EXT 

1120 

5 

.  0508  9  , 

.05291, 

. :5895  , 

.06  380 , 

<  06880, 

. 06127, 

.06019, 

EXT 

1130 

6 

.  05525, 

.05070, 

.  04500  , 

•04576, 

.  03  7m/ 

FXT 

1140 

DATA  UI99A 

”£  ( 1 , 35 

,1=1,  40)/ 

EXT 

1150 

1 

.  54848, 

.37101  , 

.  '3  *34, 

.21949, 

.  1  770  5, 

.12968, 

.09354, 

EXT 

1160 

2 

..  0  7  804, 

.0716e, 

.  06  791  , 

.00563, 

.  19639, 

o  06722, 

.  05316  , 

EXT 

11  70 

3 

, 05316, 

.04?  *6, 

.  04620  , 

.07570, 

. 06899 , 

.05791, 

.05101, 

EXT 

1180 

4 

,  04734, 

.05026, 

•  0  6 1  r  1  , 

.06570, 

. 06844 , 

. 04052, 

,  04797  , 

EXT 

1190 

5 

.0505  7  , 

«  0566  5 

.  07127  , 

.08095, 

.  08411  , 

.C7728, 

. 074/5, 

EXT 

1200 

181 
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6 

,068*6,  .0*019, 

. 05222, 

.  045’P, 

.  04171  / 

EXT 

1210 

0AT4  <>JRFA«SIT,4l 

,T-<  ,  40 )  / 

EXT 

1220 

1 

.19979,  .10040, 

.  09017  , 

.05705, 

.  04671  , 

.  03424  , 

.02633, 

EXT 

1230 

2 

•OPS’S,  .01979, 

,  0  P354  , 

.06241  , 

.  26690  * 

.06810, 

.  02285, 

EXT 

1240 

3 

.0381  0,  .03366, 

. 0*044, 

,  09627, 

,  08557  , 

•  05  4  45, 

*  04576  , 

EXT 

1250 

4 

.  0439?,  ■  n44’4. 

.  04671  , 

.  04791, 

.  04  86 1  , 

. 04604, 

.051 77 , 

EXT 

1260 

5 

•06158,  .07479, 

•  1  0  74?  , 

.12146, 

. 12177, 

.  117  34, 

.11335, 

EXT 

12  70 

6 

.10608,  ,09171, 

•  0  6063  , 

.  06960, 

.  0  6  47  5  / 

EXT 

1280 

CATA  (OCNrxf<I,ll 

,7=1  40)  / 

EXT 

1290 

1 

1  *  47676 ,  1.32614, 

1.26171,  1 

,00  000, 

.88 133, 

*  70257, 

,  5  6487, 

EXT 

1  300 

2 

•46006,  • 42G44, 

.  38310  , 

.  35076, 

.42  266  , 

.32278, 

.288 10, 

EXT 

1310 

3 

•249C5,  .21184, 

.167*4  , 

,14791, 

,  21  532  , 

.16076, 

.12057  , 

EXT 

13  20 

4 

■  10  0  38,  .10703, 

,  15070  , 

.  156F5, 

.  14639  , 

•  10226, 

.  0836  7, 

EXT 

1330 

5 

.  07373,  •  D  F  8  ?  ° » 

.05044  , 

.04373, 

. 04962, 

.00158, 

.0770  3, 

EXT 

1340 

6 

.07? 34,  . 0*297, 

•  *  5481  , 

■  0  532  ° , 

.  Ofl  741  / 

EXT 

1350 

DATA  (0CNFX7 (  T  ,?1 

,1  =  1  ,  40 )  / 

EXT 

1360 

1 

1,369?4,  1.2544  3, 

1.20035,  1 

,  (1  JO  C  0, 

♦  91367  , 

.  770  e9. 

,64987, 

EXT 

1370 

2 

♦54886,  .S0247, 

.45033 , 

,  38209  , 

.  50  58  9  , 

.  43766, 

. 38076, 

EXT 

1  3  80 

3 

•316*6,  .274*5, 

.  *??15  , 

»  ?  1 0  1  9, 

.  27570  , 

.  21057, 

•  16949  , 

EXT 

1  390 

4 

. 1 4  ?09 ,  .1«<2l6, 

•  1 69*5  , 

,  1708  ?, 

.  16025  , 

.11665, 

.  0  9759  , 

EXT 

1  400 

5 

.09216,  •0937*, 

.  1  0532  , 

♦12570, 

*  13  000  , 

.  1  76  33, 

. 14291, 

E  XT 

1410 

6 

,13506,  •  1 1 4  7C , 

.  n  9650  , 

,08291, 

.  1 0  34  fl  / 

EXT 

1420 

CATA  <0CNEX1(I,3) 

,1  =  1,  40  )  / 

EXT 

14  30 

i 

1 • 1.146P7, 

1.11642,  1 

. 00000, 

.94  766  , 

. 67538, 

.  80419  , 

EXT 

1440 

? 

,  7P9  30 ,  #68S"?, 

.62163 , 

.4996?, 

.  67949  , 

.66468, 

,  59253  , 

EXT 

14=0 

3 

♦40551,  .446*1, 

. *7086, 

♦  35924, 

.43  36  7  , 

. 37019, 

.  30842  , 

EXT 

14  00 

4 

,26437,  ,?5??P, 

.  24905  , 

♦  ?  39  7  c , 

.  22766  , 

.17804, 

.15316, 

EXT 

1470 

5 

.19373,  ,  1  f*  79  1 , 

.  22361  , 

. 28*48, 

. 28677 , 

. 2908 2, 

. 29038, 

EXT 

14  80 

6 

.  27814,  .23867. 

.  20209  , 

.16430, 

. 14943/ 

EXT 

1490 

DATA  (OCNFVKT,*.) 

,1  =  1  ,  40  )  / 

EXT 

1500 

1 

1.09131,  1.^66419 

1,05620,  1 

. oooco, 

.97506, 

.547^1, 

.94203  , 

EXT 

1510 

2 

.97671,  .92867, 

.90411  , 

.80253, 

.8922?  , 

.94462  , 

.92146, 

EXT 

1520 

3 

♦  8  r’  *9  T  ,  ♦  0  ?  SQS, 

.  *6*4 7  , 

,  6  6  6 f*  6 , 

.  78209  , 

.75266, 

. 66658  , 

EXT 

1530 

4 

.627’?,  .6OP70, 

.56335, 

.  53723, 

.  51861  , 

,  47445, 

.371  96  , 

EXT 

1540 

5 

.36  899  ,  .  37316, 

.46854  , 

,  58234, 

,  50  690  , 

♦  6  i 348, 

•  6  fl  r>  b  3  * 

F  XT 

1550 

6 

.6  on  1)4,  .SciQ?, 

.  50  767, 

,43576, 

.35949/ 

EXT 

1500 

CATA  (OCMAnMlfl) 

,  T  =  1  ,  40)  / 

EXT 

1570 

1 

.3(198  7,  .0  4  394, 

.0  2860  , 

.01797, 

. 01 468 , 

. 01766, 

.  01582  , 

EXT 

1580 

2 

.00816,  .01 146, 

.01677  , 

. 03310, 

.  03380  , 

. 0C715, 

.  00443  , 

EXT 

1590 

3 

.0050Q,  .00601, 

♦  no  733 , 

,01555, 

*  02943, 

.00994, 

•01367, 

EXT 

1600 

4 

.0167  ,  .r253f>, 

.03481 , 

, 034C5, 

,  0  3  601  , 

. 016U8, 

.01310  , 

EXT 

16  in 

5 

,011c2,  .C1O02, 

.  -*1070  , 

,01563. 

.  C206  ?  , 

0  C3 1 71 , 

.03610, 

EXT 

1620 

6 

.  0  3’4t,  .0380  4, 

.  03763  , 

.04209, 

.07892/ 

EXT 

1630 

DATA  (OCNABSd,?) 

,7=1,  43  > / 

EXT 

1640 

1 

.2  3367,  •  0  3  1 2  7  , 

, 02070  , 

.01297, 

,01063, 

.  01285, 

,01190, 

EXT 

1650 

? 

.  0  C  °T  *  ,  ,0091  1  . 

*  015*5  , 

.05  5  76, 

.2340?, 

.  0'>949, 

. 00905, 

EXT 

1680 

3 

•020*7,  ,01016, 

.  01666  , 

.  060  ?5  , 

•  08044  , 

.11  ^677  , 

.031  39, 

EXT 

1670 

4 

*0719  0,  .03  766, 

.04632, 

•  0  4  5  4  4, 

.  04715, 

1  03405  , 

. C  3614  , 

EXT 

1680 

5 

.  04379,  .f,r  4’4, 

.  078?'':  , 

.  fl9  7?P  , 

.  10C57  , 

.10247, 

.  1*222, 

EXT 

1690 

6 

,09661,  .00241, 

.  07158  , 

. 065  06 , 

.  09  20  3/ 

EXT 

1*00 

CATA  (OCNAn  5(1,31 

,T=  ?  ,  40)  t 

EXT 

1710 

1 

•  13C23,  .  C  1  r 6  7 , 

. '1C13, 

.00646, 

,  0053?  , 

. 00665, 

. 00722, 

EXT 

1720 

? 

•01335,  .00728, 

. 0 lbio  , 

.  09 8  3 r  , 

.  37  32  9  , 

•  05  70  3  , 

.0  1968  , 

EXT 

1730 

3 

«  C'5i  1  <*  ,  .04  54?, 

.  J  '03  , 

•  1  7  4  , 

•  16468  , 

,00785, 

.  06600  , 

EXT 

1  740 

4 

.T6509,  .  06791, 

, . 724? , 

.  T7329, 

.  07449  , 

.  070  25  , 

.9796?  , 

EXT 

1  7  5  B 

5 

.0QA99,  .12461, 

■  1  7  067  , 

.2201°, 

•  2  2  22  B  » 

.  22051  , 

.21595, 

EXT 

1760 

6 

•  ?0T*S  .1777Q, 

.  1  467  ?  , 

.12171, 

.12430/ 

EXT 

1  7  70 

CATA  ( O  CM A  9  5(1,4) 

, T  =  1  1  40)7 

EXT 

1780 

1 

.  0  3  5  0  f-  ,  .0n7?3, 

*  00215, 

.00139, 

.00  114  , 

.00171, 

•00552, 

EXT 

1750 

2 

•  0  706?,  .01101, 

.  0  3741  , 

. 20101 , 

.47608  , 

. 21165, 

.05234  , 

EXT 

1000 

82 


Table  Al.  Listing  of  Fortran  Code  LOWTRAN  5  (Cont. ) 


3 

•  12866, 

.11215, 

.09604  , 

.  3281  0, 

.71778, 

.20513, 

.16656, 

EXT 

1610 

4 

•  15956, 

.15842, 

.  15905  , 

.15965, 

.  16051  F 

.  16506, 

•18323, 

EXT 

10  20 

5 

.21709, 

.25652, 

.  *3222  , 

.39639, 

.  39854, 

.  402  57, 

,40025, 

EXT 

1030 

6 

•  39029, 

.35468, 

.32C0S  , 

.27715, 

.  25  348/ 

EXT 

1640 

CAT  A  (TROFXT(T,U 

,1  =  1  ,  49  >  / 

EXT 

1850 

1 

2.21222,  1 

.0  275  7, 

1.67032,  1 

.  ODOG  0  , 

.  72424  , 

.35272, 

•  1  5  2  v3  4  , 

EXT 

1660 

? 

•  OSlfii;, 

.03861, 

. *  2994  , 

, 04671  , 

.  02462  , 

.01536, 

. 01146, 

EXT 

187J 

3 

.  01  <n  2 , 

.00816, 

.0  0661  , 

.00994, 

.  01057  * 

.011*9, 

.01747, 

EXT 

leeo 

u 

•01494, 

.0*410, 

.0  3165, 

. 03366, 

.  04247  * 

.01601, 

,01215, 

EXT 

1090 

5 

,009*7, 

.00361, 

.0  0023, 

, 011 *9, 

.  0192  4, 

. 01234, 

0  01348  , 

EXT 

1900 

6 

•01114, 

•01*97, 

•  01266  , 

.01416, 

.01487/ 

EXT 

1<10 

DATA  fT<?0EXT<It?) 

,1  =  1 ,  40  )  / 

EXT 

1520 

1 

2.21519,  1 

.02266, 

1.66557,  1 

c  00  0  0  0  , 

,  72525  , 

•  35481 , 

.15449, 

EXT 

1930 

2 

•  05475, 

,04044, 

.0  3082  , 

•  046  20, 

. 05272, 

.  01  867, 

.01266, 

EXT 

1940 

3 

•  Oil?*, 

.00836* 

.00883  , 

.01449, 

.01399, 

.01228, 

.  0  1728  , 

EXT 

1550 

<4 

•  Q 1 476, 

,02205, 

.03215  , 

.03494  , 

.04285  f 

.01652, 

.013  04  , 

EXT 

I960 

<5 

• CliOl, 

.011*0, 

• 1297 , 

,0175  3, 

•  02468, 

.  01741, 

.01766  , 

EXT 

1970 

6 

. 0151*, 

.01 557, 

.01456 , 

•  01532, 

. 01502/ 

EXT 

I960 

DATA  (Tr:OEXT(I  f3) 

,T  =  1  ,  40  )  / 

EXT 

15  5  0 

1 

2.1906?,  1 

.79462, 

1.64466,  1 

. ooooo, 

, 73297, 

.  36443, 

.  16278  , 

EXT 

20  GO 

? 

•  06468, 

•04658 , 

. 0*799 , 

.045*0, 

.11092, 

. 02835, 

.01646, 

EXT 

2010 

3 

•  01  586, 

.01076, 

.  0  0969  , 

.02551, 

. 02222, 

.  01 4f 8, 

.  01690  , 

EXT 

2020 

u 

.  01437, 

.01994, 

.03127  , 

♦03513, 

.  04076  , 

. 01722, 

.01513, 

EXT 

20  30 

5 

.01519, 

.01791, 

. 02538 , 

. 03272, 

,  03816  , 

. 02038, 

.  02806  , 

EXT 

2040 

6 

.02661, 

.02226, 

.01937 , 

,01804, 

,  01791/ 

EXT 

2050 

DATA  <T90EXT(I,4) 

,1=1  ,  40  )  / 

EXT 

20  60 

1 

1.75696,  1 

.  54029, 

1.45962  ,  1 

,  0  0  0  0  G  , 

.77016  , 

.431*9, 

•21778, 

EXT 

20  70 

2 

.11329, 

.00101, 

.0  5506  , 

.04943, 

,  25291  , 

.06016, 

.03703, 

EXT 

2060 

3 

.02601, 

•01968, 

.01460  , 

.04962, 

.04247, 

. 022*4, 

.01797  , 

EXT 

20  50 

4 

. 015*2, 

,016*.*, 

.  0  2259  , 

.  C  2  48  7  , 

.  02595, 

.01728, 

.  01092  , 

EXT 

2100 

5 

.  02399, 

.03247, 

.05285, 

.06462, 

.  0660  0  , 

♦  05930, 

.  05525, 

EXT 

2110 

6 

.  04861, 

.03753, 

.  0  2966  , 

.02340, 

,02165/ 

EXT 

2120 

DATA  (TROAB 

S(l,l) 

,r  =  i,  40)/ 

EXT 

2130 

i 

.  69671, 

•  09  90  c , 

.06563 , 

,04101, 

.  03354  , 

. 0*627, 

.  028  10  , 

EXT 

2140 

2 

.  008*3, 

.00910, 

.  00  930  , 

.03215 , 

«.  01  28  5  , 

. 00513, 

.00316. 

F  XT 

2150 

3 

,0055r, 

.0044:*, 

. 00046, 

.00807, 

. 00537, 

. 01025, 

.  01646  , 

EXT 

2160 

4 

. 01481, 

,02418, 

.^2885  , 

.0*070, 

. 04032, 

•  C  1 4  5  4  , 

.  1139, 

EXT 

2170 

5 

.  0057  *, 

.0001 6, 

.  00  79/  , 

.0113*, 

,  0 1 91 1 , 

.01215, 

.01329, 

EXT 

2180 

6 

.01101, 

.01291, 

.11266, 

.01416, 

.01487/ 

EXT 

2190 

DATA  ( TROA  B  S ( 1 , 2  J 

,T=1,  41) )  / 

EXT 

2  2  0  G 

1 

.  65000, 

.00791, 

.  05816  , 

.03652, 

.  02994  , 

.  03270  , 

,02557, 

EXT 

22  10 

2 

.  00810, 

.0004?, 

.  00  867  , 

.03139, 

.03949, 

,00646, 

.00316, 

EXT 

2220 

3 

„  0059  4, 

.  0051  9, 

.CO  646, 

•  (11304, 

.  01247  , 

. 01095, 

.01620  , 

EXT 

2230 

4 

.  01449, 

.02278, 

.  02930  , 

.03104, 

,  04  06  3  , 

. 01544, 

.01234, 

EXT 

2240 

5 

.  01044, 

,010*6, 

.0127*, 

.01741, 

•  02462, 

.01722, 

.01747, 

EXT 

2250 

6 

.  015  0  6, 

.01 551, 

.  HI  45b, 

.01532, 

.  0150?  / 

EXT 

2260 

CATA  <T<?OA"S(I  ,3) 

,1=1  ,  40)  / 

EXT 

22/0 

1 

.  52004, 

.06357, 

.  04  153  , 

.02633, 

,  n  ?  id  4 , 

. 02443, 

. 019*7, 

EXT 

2200 

2 

,  0065? , 

.00646, 

.'’O  709  , 

.02949, 

.10  013  , 

.  U  C968  , 

•  0  C  3  1  0  , 

EXT 

2250 

3 

*  .00677, 

.00582, 

.''0046, 

.02361, 

. 01994 , 

.01266, 

.1)1544  , 

EXT 

23  00 

4 

. 01386, 

.01960, 

.02046  , 

.03203, 

.  03894  , 

.016  2  D  , 

•  01449  , 

EXT 

?  1  0 

5 

*  0146°, 

.01/47, 

.02513, 

.03253, 

.  03797  , 

.  020 1 6, 

.  02861  , 

EXT 

2*20 

6 

,02538, 

.  02  21  5, 

•  n  1  93J  , 

♦  C 1 7  97  , 

.01791  / 

EXT 

2*30 

DATA  \  T^uAUM  1 ,41 

,1  =  1,  4U  J  / 

EXT 

2340 

1 

. 19079, 

.01042, 

.01 215, 

•00791, 

. 00664, 

. OC770, 

♦  0065?  , 

EXT 

2  350 

? 

.00*61, 

•0024*, 

. 00  393 , 

.T2570  , 

.  20690  , 

. 01715, 

. 00316, 

EXT 

2360 

3 

.  one73. 

. 00728, 

.  00  658, 

.04401, 

.03525, 

. 01646, 

.  014  05  , 

EXT 

2*70 

4 

.  01313, 

.  n  1  4  f,  8  , 

.0194^ , 

. 021P  4, 

. 02367, 

•  0160  8, 

•  01616  , 

EXT 

2  3  8  0 

5 

.02307, 

.0*20  3, 

.05  234  , 

.06399. 

. 06538 , 

. 05067, 

.05456, 

EXT 

2*50 

6 

•  04  01  3, 

,  0*715, 

,  '’2949, 

.02335, 

.02150  / 

EXT 

24  00 

1B3 
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D/1TA  (FGtfXT  (I),T=1,  *.n  >  / 


L 

. 96519, 

.96168, 

.  =9089, 

2 

1*  04 146  , 

1  .04696, 

1.05323, 

7 

l* 0927?, 

1.10367, 

1.11684, 

4 

1*17219, 

1*18278, 

1  ,  20133  , 

5 

1*  G5604  , 

.982=1, 

1 «  -  1120  9 

6 

1.  If  544, 

1.21682, 

1*  24614, 

OAT A (FGlPBS (I) , 1  =  1 

,  4M/ 

1 

*  00013, 

0*00000, 

9*00000, 

2 

•  1  (Mo  1  , 

*0^899, 

.13272, 

3 

•  37373, 

.74  601, 

• T 1867 , 

A 

«  45943, 

.4591 8, 

.46089  , 

5 

•  51 468  , 

•5’ 10 1, 

. 65266, 

6 

.  62335, 

.64120, 

.66627  , 

0ATMFG2EXT  (I) ,  1=1 

,  4n  )  / 

1 

♦  94  791, 

.9621  5, 

.  97063  , 

2 

1.29570, 

1 .3=203, 

1 .41120  , 

3 

l.  18709, 

1  .  04367, 

. e2354 , 

4 

.47677, 

.43171, 

•  -*6734  , 

5 

. 24006, 

♦28016, 

.42671  , 

6 

.54247, 

*4 ’Ml, 

.  34475  , 

DATA  (i-r, 2fi  “SfIM-1 

,  4')/ 

l 

G.  OOOOO, 

o . no  ooo , 

0. ooooo , 

2 

•G1907, 

. 00620, 

. 02323  , 

3 

.  0963«, 

.08000, 

.06502, 

A 

.11  316  , 

.1  1$  ■’7, 

.  1  1 r’  1 3  , 

5 

•  18  633, 

.24057, 

.35411  , 

6 

.43773, 

.34432, 

.2  7823  , 

OATA (6STFXT ( I ) , 1=1 

,  4")  / 

1 

1. 4f 671, 

1.55462, 

1 .61506, 

2 

•  0418  4, 

.02728. 

.  51  840  , 

3 

,  D4768, 

.04278, 

.9  581)  , 

4 

.  U867, 

, 14’ IQ, 

. 1 7734  , 

b 

.  06734, 

,07676, 

.0  1976  , 

6 

.  01715, 

♦01620, 

. 00035, 

CA7A  (8STA9S  (I  )  ,1=1 

,  40)/ 

1 

0*  ooooo, 

0.0000  0, 

o. ooooo , 

2 

*00127  , 

.00168, 

.  00  291  , 

3 

.04519, 

#  0  •*  1 3  , 

.  0570  3  , 

4 

.1131*, 

.14633, 

.  12639  , 

c 

.05709, 

.635*1, 

•  0 1962  , 

6 

. 01 7P9, 

• C 1620 , 

.  ^  0635  , 

r.-A TP  <  AVDF XT  (I )  ,1  =  1 

,  40  )  / 

1 

1.1488  0, 

1  .1=171, 

1. 18 013, 

2 

,14551 , 

•  1 1  07  n. 

."8  633  , 

3 

.  020=s 

.01 r3f. 

.01266, 

4 

.017QJ. 

•0?*78, 

. 0  2C18 i 

5 

. 02772, 

.02476, 

.91715. 

6 

. D177?, 

.0107!,, 

.  01051  , 

DAT  fl ( mVOPPS  (XI  ,1*1 

,  49 )  / 

1 

. 44016, 

.  11259, 

.  °8f  00  , 

2 

.  0101°, 

.01867, 

. J884?  , 

i 

.  0031  5, 

.00339, 

.  fto;09 , 

4 

.0166?, 

,  OL’l'  7, 

. 92437  . 

4 

.  0  2  51  '< , 

, "1620 , 

6 

-  01741  , 

.01057, 

.01015  , 

DAT  A l FVH F  XT  (I)  ,  T=1 

,  40)/ 

1 

.6871  5, 

♦9263’, 

.  =  4013  , 

2 

.3367’, 

.P?53f , 

,  7e,?6i  , 

3 

,4 6???, 

. ^7646, 

.  12716, 

Code  LOWTRAN  5  (Cont. ) 
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4 

. 14431, 

.14152, 

.  '*7633  , 

,44551, 

, 44405, 

.42222, 

.36462, 

EXT 

3010 

S 

,32551, 

•  2  7  519, 

.  16720  , 

.10627, 

,  10861  , 

.  i  n«  it , 

.116  65, 

EXT 

30  20 

6 

.m?7, 

.10108, 

.00557  , 

,06411 , 

.  05741  / 

EXT 

3 C  20 

DATA (PVOAPS (I) ,1-1 , 

4nj  f 

EXT 

3C40 

1 

•41582, 

•22092, 

.19108  , 

.14468, 

. 12475, 

. 09150, 

.  0660  1  , 

EXT 

3050 

2 

. 04943 , 

.04367, 

.04342 , 

,04399, 

.  05C76, 

.04132, 

.02629, 

EXT 

30  60 

3 

•  01924, 

.01981, 

.  0  2  297  , 

.02475, 

.02778 , 

.03411, 

.05335, 

EXT 

3070 

4 

0?  133, 

.08816, 

.15342  , 

,  18506, 

.  19354  , 

.  207  SI, 

.10449, 

EXT 

3000 

9 

.16101, 

.1 3759, 

,  00455  , 

.  06861,, 

, 07278, 

.07367, 

,  07956, 

EXT 

3090 

6 

.  C87Q5, 

.06032, 

•  n  5747  , 

. :  5 1 3  3 , 

,  05  323/ 

EXT 

*100 

CATA (DHEFXT  <T> ,T  =  1 , 

4  n  )  / 

EXT 

3110 

1 

1*05019, 

1.05800, 

1 .0  6259  , 

1.00000, 

.  9<. 949  , 

.01466, 

. b6061  , 

EXT 

3  120 

2 

.  54  360, 

.49133, 

.44 677  , 

.41671, 

.  36063, 

.34770, 

.32604, 

EXT 

3120 

3 

, 29722, 

.27506, 

.  25082  , 

.  2262C , 

.  21652  , 

•  20253, 

.17266, 

EXT 

3140 

4 

. 14905, 

.14274, 

. 14C8?  , 

.15057, 

.  16?99, 

.23608, 

.24481, 

EXT 

3150 

9 

.277 91, 

.25076, 

. 15272 , 

.  0960  1, 

.  09  456, 

,14576, 

.12373 , 

EXT 

3160 

6 

.16348, 

•12160, 

. 1  2924  , 

,08538, 

.  04108 / 

EXT 

3170 

DATA  (OMFABS  <1 ) ,1=1, 

4  0  )/ 

EXT 

3100 

1 

, 00063, 

.0  015  ?, 

.  no  184 , 

.00506, 

. 00791 , 

.01829, 

.03720  , 

EXT 

3190 

2 

. G6158 , 

.87538, 

.88943  , 

.  1  0  0  c  1  , 

.11614, 

,13310, 

•14349, 

EXT 

32  QQ 

3 

,  14633, 

*13720, 

,  1246?  , 

,  11184, 

.  1Q7A9  , 

•l^ 076, 

.  09  006  , 

EXT 

32  1C 

4 

. 08734, 

.05000, 

*  10  304  , 

.11905, 

.13437 , 

.19551 , 

.20  095, 

EXT 

32  20 

5 

.22404, 

.18410, 

.09285, 

.06666, 

.06823, 

.12329, 

.  10551  , 

EXT 

3230 

6 

•  1 616  4, 

.09P75, 

.10502  , 

.46759, 

.03247/ 

EXT 

32  40 

ALTIT'JOc  REGIONS  for  AEROSOL  EXTINCTION  COEFFICIENTS 


C-PXH  EXT  3300 

RURr  XT  =  RUR  Al  F  X  T  INC  T  I  ON  RURABS=RURA|_  ABSORPTION  EXT  3310 

URpEXT=UDBAN  FX7INCTION  URBABS-URBAN  ABSORPTION  EXT  3320 

0CNEXT  =  »1ARITIHE  EXTINCTION  OCNABS^M ARIT IHE  ABSORPTION  EXT  3330 
TROFXTrTenPSPWER  EXTINCTION  T  POA  CS  *  T  ROF  CSP  HER  ABSORPTION  EXT  3?40 
FGl EXT  =F OG1  * 2 KM  VIS  EXTINCTION  PGlABS  =  FOG5  ABSORPTION  EXT  3350 

FG  CFXT  =  F  OG  9  ■ 5KM  VIS  EXTINCTION  FG2ABS=POG2  ABSORPTION  EXT  33  E  0 

>?-PK*  EXT  3?  ? 0 

TROFXTrTROPOSPHtR  EXTINCTION  T RO A9 S  =  TRO POS P HER  A BSO RPT I  ONE XT  33  30 
>9-30™  EXT  3390 

eSTEXT  =  *ACKr.POUND  S -RAT OSPHERIC  EXTINCTION  EXT  34  00 

BSTARS^ BACKGROUND  S  RATOSFHERIC  ABSORPTION  EXT  3410 

AVOFXT  =  AG-D  VO L CAN  1 1  EXTINCTION  EXT  3*20 

A VC Aoc  =  AGF n  VOLCANIC  ABSOFPTION  EXT  34  20 

F VOC XT  =  F RE SM  VOLCANIC  EXTINCTION  EXT  3440 

FVCARS=frcsh  VOLCANIC  A8SORPTION  EXT  3450 

>  3C -  1 r p  KM  EXT  3  A  60 

CMecyT  =  *FTFr,RIC  DU$T  EXTINCTION  *  EXT  34  70 

fME ABS=mcte0RIC  OUST  ABSORPTION  tXI  3480 

EXT  3490 
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SUBROUTINE  PATH 

PAT 

10 

REVISET  1? 

CFC  79 

PAT 

20 

LOADS  CUMULATIVE  A9S0RBFR  AMOUNTS  INTO  THE  MATRIX 

hfATH  FROM  HLAY 

PAT 

30 

FOR  THF  ATMOSPHERIC  SUNT  PATH 

PAT 

40 

USED  FOR  RAPT ANC5  CALCULATIONS 

PflT 

50 

PAT 

60 

COMMON  /CJPri/  MCfFL  ,  IHAZE, ITYPE,t  EM. je.IM, Ml ,ME,M3 .ML,  IE  MISS,  NO 

PAT 

70 

.  .TeOUNO,  TSraSNf  TVULCN^VIS 

PAT 

60 

COMMON  /CARC 2/  M1,H2, ANGLr , PANGE, BETA ,HMIN, RE 

PAT 

5  C 

COMMON  /C  ARni/  V  1,  V?  ,n v  , Ay  W  ,CO,CN ,  H  (1  5 )  , E  (1  5  >  ,C  A ? 

FI 

PAT 

ICO 

COMMON  /CNTRL/  LFNST*KMAX,Htij,ji,j?fjMIN,JEXTRA, 

IL, IKMAX, NLL.NFl 

PAT 

no 

.  •  IF  IND,  Nl. ,  IX!  0 

PAT 

120 

COMMON  FMDATA/  7 < 3 4)  ,P ( 7, 3 4 ) , T  (7 , 34 ) , N H (7 ,34 ) , WC ( 7 , 34) 

PA  T 

1.3  0 

.  .  SEASN(2>  ,  VULCN  (SI  ,  VSP(B)  >HHIX<24) 

PAT 

14Q 

COMMON  SELHUK1  JN1  ,HSTON  (3M  )  ,EH<15 , 3<«>  ,  1CH  (M)  ,V1'  (15)  ,TX(  15) 

PAT 

150 

COMMON  WL*Y  (*4, 1 5) , WPATHlo  B,1 5) ,TPeY(66) 

PA  . 

ieo 

COMMON  A8SC  <4,40I,EXTCC4,40>  f VX2 (40) 

PAT 

370 

IF  <lTrPE.EO.U  GO  T0  6 D 

PA  T 

180 

IF  (J1.PC.J2.AN0.J1.E0.JMIN)  GO  TO  t>0 

PAT 

150 

IF  (ITVPE.PQ,  ?.  AfP.Kl.  EQ.H?)  J2=-J1 

PAT 

200 

IF  (H2.GT.H1,  AND. ANGLE. GT.  9C.  .AND.NP1.  EC.D  J1=J1 

-1 

PAT 

210 

TF  (JEXTPA, EQ.l)  J?sJ2+l 

PAT 

220 

IF  ((ITYPF.eo.2l.ANP. (H1.3T.H2) .ANO.(LENST.EC.l) > 

J2=J2-1 

PAT 

230 

IF  (ITYPE.EC.  1)  J?=Nl 

PAT 

240 

lr  (JP.EQ. 0>  P  F I M  T  70,  J1,J? 

PAT 

25C 

IF < JP.EO.O)  PRINT  7S 

PAT 

260 

00  5  IX=1,6F 

PAT 

2  70 

TPOYdO  =  0, 

PAT 

200 

00  5  K=1,KHAX 

PAT 

2B0 

HPATH(IK#K»*0. 

PAT 

300 

CONTINUE 

PAT 

310 

LEN  =  P 

PAT 

320 

NLL=NL-1 

PAT 

330 

IL*J1+1 

PAT 

3  40 

I J- I L+NLL 

PAT 

35C 

CO  10  X=1,KPAX 

PAT 

360 

E  ( K  >  —  0  - 

PAT 

370 

CONTINUF. 

PAT 

3  60 

IF  (ANGLF  .GT.50. 0)  GO  to  15 

PAT 

350 

LEN=1. 

PAT 

400 

IL=  J 1  - 1 

PAT 

410 

Hl’IN-1.  '’E-E 

PAT 

420 

IJ=ML 

PAT 

430 

CONTINUE 

PAT 

440 

00  4  0  IK=1,68 

PAT 

450 

IF  (LEN.EQ.ly  IL~  I L  - 1 

PAT 

460 

IF  (LEN. EC. 1)  IL  =  I L 1 1 

PAT 

470 

IJ*=  Iv/-1 

PAT 

4  80 

IF  (IL. ECU  0)  CO  TO  an 

PAT 

450 

DO  20  K= 1 , xwfl  x 

PAT 

500 

W (X)  =E (K) +HLAY (1L,X) 

PAT 

513 

HPATHdX.  K)  =  W(K) 

PflT 

5ZD 

CONTINUE 

=AT 

530 

IF  <IUl£.P.OF.U.G*.Nl>  GO  TO  25 

PAT 

540 

TBAR^-  <T  (*,  IL)  ♦T(mt  IL+1  )  >*?  .  5 

PAT 

5  50 

IF  (Ml.GT .  0  •  ANC  « M  •  L  T  .7)  TBA  R=  (T  (."  1 ,  IL)  +T (Ml,  IL  +  1)  i 

*0.5 

PAT 

560 

PA  T 

5  70 

IF  (JEXTRfl . fO . i )  TEARr  (TIM yJi) 4T  (M,Jl+l)>*0.5 

PAT 

5  80 

CONTINUE 

PAT 

5  50 

TB*Yt I<)  s'!  °AP 

PAT 

600 

186 


Table  Al.  Listing  of  Fortran  Code  LCWTRAN  5  (Coni.) 


00  30  K=1,K*AX 

PAT 

610 

e<K>=w(K> 

PAT 

620 

30 

CONTINUE 

PAT 

630 

IP  (  ANRLF*LE.0O«Q.  8NC«  It.5Q.NLl)  GO  TO  50 

PAT 

6  40 

IF  <ITYPf*EO. 1 .  AN3  «  A NF LE* L E • 90 • 0 )  GO  TC  35 

PAT 

650 

IF  CITYPF.FC.  ?*AND,LEN.FQ#  i*AN0,Il*EQ.  J2)  GO  TO  50 

PAT 

660 

IF  (ITYPF.EO.Z-flND .LENST.EO .0 .AND  .  1 1 .  EQ  •  J2)  GOTO  50 

PAT 

6  70 

IF  UL.EO.  JHN,  ANP*HHIN*GT  *t»*0>  LEN=  1 

PAT 

680 

IF  <IL.E0.1.ANT'.MHlN.Lc*Q,  0)  GO  TC  50 

PAT 

€90 

IF  (LEN.EC.9)  GO  to  3^ 

PAT 

700 

IF  ( It#  £0*  JMN*  AND*  I J*  EQ*  I L+NLL)  3L=IL-1 

PAT 

710 

IF  (ITYP€,E0.?.AND,IL.£Q.J ?)  GO  TG  50 

PAT 

720 

35 

CONTINUE 

PAT 

730 

IF<jP.EQ.O)  FRlNT  90,  IK  ,  U P A TH (I K tK ) ,K= 1 , 8P ,  WPA T H ( IK f 10 ) , 

PAT 

740 

1HPATH(IK»U)»T8PV(  tk> 

PAT 

750 

40 

CONTINUE 

PAT 

760 

IKMAX=6* 

PAT 

770 

LEN=LEN9T 

PAT 

780 

IF(JP.NP.O)  RETURN 

PAT 

7?0 

PRINT  8  5 

PAT 

8  00 

OO  45  IK=1,IKMAX 

PAT 

810 

45 

PRINT  00,  IK,  <M>AT(f(IK|K),  Kel2,14> 

PAT 

820 

RETURN 

PAT 

630 

50 

CONTINUE 

PAT 

8  40 

IFtjP.EO.ri  PRINT  8%  IK,<  WRATH  ( IK,K>  ,K=1 ,8  )  ,WPA  TH(IK,10) 

PAT 

8  50 

1  , HPATM(TK,ii) ,T«PV<IK) 

PAT 

860 

IKHuX-IK 

PAT 

670 

LE  N=  LENST 

PAT 

680 

IF  ( JP»  Nt . 0  )  oFTU»N 

PAT 

090 

PRINT  85 

PAT 

9  0  0 

00  55  IK=1,IKMAX 

PAT 

910 

55 

PRINT  80,  IK, IKfKj  ,  K*12,14) 

PAT 

520 

RETURN 

PAT 

9  30 

60 

00  G5  K-i ,k'MAx 

PAT 

940 

HPATH  (1 »  K)  =  N<  K) 

PAT 

550 

65 

CONTINUE 

PAT 

560 

IF  <H*EQ,C>  Jl=i 

PAT 

570 

J2  =  J1 

PAT 

960 

T98  Y  <  1)  =  T  (  M ,  Jl) 

PAT 

990 

IF <M1*GT. 0. ANE.N.LT. 7)  T0BY  (1 ) =T { hi , jl) 

PAT 

1OQ0 

IKH AX-1 

PAT 

1010 

IF  <  JP • EQ . 0)  PPINT  70,  J1,J2 

PAT 

1020 

IF(JP.EQ.O)  PRINT  7^ 

PAT 

1030 

I  K=  1 

PAT 

1  C  40 

IKKAXMK 

PAT 

1050 

IF<JP.EQ,0)  PRINT  80,  IK,(HPATH(IK,K) ,K=i,8)  ,HPATH ( IK,1 0 > , 

PAT 

1060 

1  WPA  TH(TK ,11)  ?TBPY (TK) 

PAT 

lj'/0 

NHIN=1*  OE-6 

PAT 

10  80 

IF(jP.NE,0>  RETURN 

PAT 

105C 

PRINT  85 

PAT 

1100 

FRINT  8*  ,  IK,  (  WPATH(  I;(,K> ,  K=12, 14) 

PAT 

1110 

RETURN 

PM 

PAT 

1120 

1130 

70 

FORMAT  (91?) 

PAT 

1140 

75 

FORMAT  <//,20X,5?4  7U“UIATIVF  ABSCP6FR  AMOUNT?  F  CR  THE  ATHOSPHER  XLPAT 

1160 

1  PATH,//lCX,?HH2Q,6Xy4HC09  4,ex,2HC.T,9Xl  2HN2,  8X,  5HH20  C,  6X,  5HNOL 

5 » P  A  T 

1160 

2/X,4HArt>l,  f»X,  5H07  UV,7X,5-(H20  C ,  7  X,  4HH  NOS  -.5  X  ,  4H  T  A  VE  ) 

FAT 

1170 

60 

FORMAT  <IK,1P1  0E11  .3, 0PF10  .  ?) 

PA  T 

1180 

65 

FORMAT  <//,?X,2MI" ,4X,4  HA£ R ?, 7 X , 4 HA ER 3 , 7X,4HAER4> 

PAT 

1  1  90 

END 

PAT 

1200 

nnnn 
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SUBROUTINE  TRAN* 

TRA 

10 

REVISED  U  JAN  1980 

TRA 

20 

CALCULATES  TRflNSHr  TTaNQE  AND  RADIANCE  VALUES  8ET  FEEN  VI  AND  V2 

TRA 

30 

FOR  A  GIVEN  ATMOSPHERIC  SLANT  PATH 

TRA 

40 

TRA 

50 

COMMON  /CAR  Cl/  MO- EL  »  T H AZ E # IT  VPE » LEN,  JPr XMf Ml ,M2, M3 »HL» IEmISS ,RO 

TRA 

60 

i 

jTBOUNn, ISLASN, IVULCN,VIS 

TRA 

70 

COMMON  /CART?/  HI, H? , AN6L:  , RANGE, BETA , HMIN, RE 

TRA 

60 

common  /ca*c?/  vi, v2 ,nv,Avw,corcw,H(is) ,c <i5) »ca,fi 

TRA 

90 

COMMON  /rNTRL/  L  FNST  ,  XMA  X,  M  ,  I J ,  J 1 ,  J2  ,  JHIN  » JE  XTRA ,  I  Ly  IKMO  X ,  NLL,  NF'l 

TRA 

100 

1 

, IFINOf NL, IKLO 

TRA 

110 

COMMON  /MDA  T A/  7  r?A>  ,  P  (7 ,34)  ,  T<7  ,  34)  ,WH<7 ,3**)  ,HO  <7,  24) 

TRA 

1  20 

1 

,StA$N(?),VULCNfc>,  VSPi9)  ,H2fl5)  ,HMIX(34) 

TRA 

130 

COMMON  RFLH19M34)  ,HST0R<34)  ,EH(l«>t34)  ,ICH(4)  ,VH(15)  ,TX(15) 

TRA 

140 

COMMON  ML  AY  (34,15)  T W FA TH (5 6 , 1 5) , TB9 Y ( 6 6 ) 

TRA 

150 

COMMON  A  BSC  » *» ,  40  )  ,FXTC(4,40),VX?<40) 

TRA 

ieo 

COMNON  /TRFHFO/  TR (F 7 > , f W < 6 7) , FO ( 6 7) 

TRA 

170 

COMMON  /C*»C5C8/  C4 ( i 3 *) ,C5 ( 15 ) , C8  ( 10?) 

TRA 

180 

COMMON  /AER/  XX* ,XX? , *X3,X X4, YY1, YY?, Y Y 3, YY 4 

TRA 

1  50 

OIHENSTON  APS ( 15 ) 

TRA 

200 

FF(TtV>  =1.  I90?c-fcf-16*  fV**5)  /<EXO(i.43e79*V/T>-l  .  ) 

TRA 

210 

WATTS.  CM-?  ST-1  MICRON- 1 

TRA 

220 

RADMIN=i#fE*3?° 

TRA 

230 

RADMAX=a. 

TRA 

240 

VRMINS0 . 

TRA 

250 

VRMA  X=l). 

TRA 

2  60 

SUM  A=  0 » 

TRA 

270 

RADSUM=0. 

TRA 

280 

factored.*? 

TRA 

290 

CALI  C4DTA 

TRA 

7  00 

CALL  TPFN 

TRA 

MO 

IV1=V1/ 5. 

TRA 

220 

1VZ-V2/5  »  +.9Q 

TRA 

330 

IVl  ~  IV1  *  5 

TRA 

340 

IV?2lV?*5 

TRA 

250 

IF  (IV1.1T.I50)  rvi«?50 

TRA 

260 

IF  < IV2.GT • 50000)  IV?=50000 

TRA 

270 

IF  (DV.LT. 5)  TV=5 

TRA 

3  CO 

IOVsOV 

TRA 

3  90 

iv=ivi-inv 

TRA 

fcCO 

ICOUNT*  0 

TRA 

410 

BEGINING  OF  TRANSMITTANCE  CALCULATIONS 

T  RA 

4  20 

5 

IV=IV  +  IOV 

TRA 

430 

SUM  V=  0. 

TRA 

440 

TLOLPsl. 

T  P  A 

450 

TSOL  P  =  1  . 

TRA 

460 

IKLO=l 

TRA 

470 

IF  CIEMISS.  £0 .0)  IKMAXrlKLO 

TP  A 

4  CO 

DO  10  JK= 1 » It 

TRA 

490 

APS  <JK)rO . 

T  P  A 

r,  nn 

IF  (JX.LC.r)  A8SiJK)”-5. 

TRA 

SIC 

10 

continue 

TRA 

520 

IF  f  UP.  NE  .0)  GO  TO  ?  Cl 

TRA 

520 

IF  ( ICOUNT . £0.0)  GO  TO  15 

TRA 

540 

IF  (ICOUNT,  EO,  5|* )  GO  TO  15 

TRA 

550 

GO  TO  2  5 

TRA 

560 

15 

ICOUNT=  9 

TRA 

570 

IF  (TEMISS. EO.OJ  PRINT  255 

TRA 

580 

20 

00  25  K--1  ,K  MAX 

TRA 

590 

TX<  x) =o  .  n 

TRA 

600 

Table  Al.  Listing  of  Fortran  Code  LOWTHAN  5  (Cont,  ) 


IF  (K.LT.4)  TX<K)=1.0 

TRA 

61? 

25 

CONTINUE 

TR  A 

620 

ICOU^T-ICOUNTf  1 

TRA 

630 

SUM=0. 1 

TRA 

6  40 

V=IV  . 

TRA 

650 

1= ( IV-?50)/5*l 

TRA 

660 

TRA 

670 

hnoj  absorption  calculatdn 

TRA 

680 

CALL  HNO'  < V, APSCll) ) 

TRA 

6  90 

IF  (IV.  LI,  t  70)  GO  TO  AO 

TRA 

7CC 

IF  tIV.LF.  7  000)  CO  TO  i,s 

TRA 

710 

***  HOLFfLlAR  SCATTERING 

TRA 

720 

ABS<4>«VM4m.247m*t8-l<07123E*0?*V**2) 

TRA 

730 

if  (iv.tT.gz-iC/  go  to  eo 

TRA 

740 

IF  ( IV.LT. 1 3°:0)  50  TO  65 

TRA 

750 

♦**  UV  070NF 

TRA 

7(0 

IF  ( IV. Lf. ? 3400)  SO  TO  30 

TRA 

770 

IF  (IV. GE. 27500)  SO  TO 

TRA 

780 

GO  TO  IIP 

TRA 

790 

30 

XI=  (V-l *000.0  > /900.0  +1  * 

TRA 

6  CO 

GO  TO  40 

TRA 

810 

35 

XI= IV-275.0. C) /5C" •  . 

TRA 

820 

40 

N=  X I  *  1 . 001 

TRA 

830 

XO=  XI  -Ft  OAT  (N) 

TRA 

8  40 

ABS (8)^C8(N)»>0»TSe<  N) -cat  N-l) ) 

TRA 

850 

IF  (IV. GT. 14500)  SO  TO  110 

TRA 

860 

GO  TO  65 

TRA 

870 

***  HATER  VAFOR  CONT  TNUUN  10  NIC  RON  REGION 

TRA- 

880 

45 

IF  aV.GT.l-*50>  CO  TO  50 

TRA 

890 

A0S(5)=l4»16  +  5  57  8.  Q*£  XP ( -7  »67E-3*V)) 

TRA 

9  00 

GO  TO  55 

TRA 

510 

50 

IF  <IV.LT.??50>  GO  TO  60 

TRA 

920 

**•  WATER  VAPOR  : ONTI NULM  4  MICRON 

REGION 

TRA 

930 

Xl=  (V-2350.  D /5?  «  04-1, 0 

TRA 

540 

NHsXX  +  1.  (?oi 

TRA 

5  5  0 

XH=XI-FtOAT  (NH) 

TRA 

960 

«aS(10)=C5(NH)»)(H*  (CS  (NH)-CS(NH-D) 

TRA 

E  70 

55 

CONTI NUt 

TRA 

900 

IF  IIV.LC.13F0. OR.  IV.GT.2FvO)  GO  TO 

80 

TRA 

5  50 

*♦*  NITPOGEK  rONTINUUM 

TRA 

1000 

60 

IF  (IV.LT.El80)  GD  TO  80 

TRA 

1C1P 

K4- 1- 34  6 

TRA 

1020 

ABS  C ** )  =C «•  C <  .> 

TRA 

10  3  0 

GO  TO  81 

TRA 

10A0 

***  HATER  VAFOUP 

TRA 

1050 

65 

IF  (IV.LT. LJ8  0  0. AND.  IV. GF.  98FS)  GC  TO  70 

TRA 

1060 

IF  (IV. LF,  1452  0-.  ANO,  IV.  GE.  13400)  GO 

TO  75 

TRA 

1070 

GO  TO  85 

TRA 

1080 

70 

1=1-135 

TRA 

1090 

GO  TO  *0 

TRA 

1100 

75 

1  =  1  -255 

TRA 

1 1 10 

80 

CALL  C10TA  (ABS(l) tT) 

TR* 

1120 

85 

CONT I  HUE 

TRA 

1120 

***  UNIFORMLY  "IXLC  GASES 

TRA 

H40 

IF  (IV.LT. 9"6f .ANO.TV, GE.50C)  GO  TO 

9T 

TRA 

1150 

IF  (IV. LT.  13190,  ANT.  IV. GT.  1  2970)  GO 

TO  95 

TRA 

1160 

GO  TO  105 

TRA 

1 170 

90 

J=I-30 

TRA 

1180 

GO  TO  ino 

TRA 

1190 

95 

J=(IV-12950)/541516 

TRA 

1200 

189 


Table  Al.  Listing  of  Fortran  Code  LOWT.RAN  5  (Cont. ) 


100  CALL  C20T A  <Af*S<2),J) 

105  CONTINUE 

***  07  ONE 

IF  (IV.LT.575.OR.IV.GT.3270)  GO  TC  110 
1=1-45 

CALL  C3DTA  (A«S(  x)  »L> 

110  CONTINUE 

CALL  ACRFXT  (V) 

00  210  IK  =  I  KLO,IXHAX 
IF  (TFHISS, FO. 0)  GO  TO  120 

00  115  K~  1 »  KN  A  X 

W(K)=WPATH<IK,*0 
115  CONTINUE 
120  CONTINUE 
SUM =  C . 

CO  125  JX=4,11 
TX< JK)sflOS(JK)»N{JK) 

125  SUM  =  SUM*-rX<  JK) 

TX  <  5)  =TX  (5)  ♦TX(itl) 

TX  (1)  =  1, 0 
Ki'-  1 

IF  (W(l).LT  *1*0E-?H)  GOTO  145 
IF  <A*S( 1) .LE.-6.fl>  GO  TO  145 
WSl=  AL0G1C (N(ll) ♦ABS (1 ) 

TF  (MSI.  LT.  -2.7460)  TX  ( 1)  r  1 .  08778  7*  E  XF  (1.  6  5  55  «5*H  S 1 ) 
IF  (WS1.LT.-2.146M  GO  To  145 
IF  tNSl  .GT.3.56P?)  GO  TO  14  0 
IF  (HS1.GT.2.0)  Kl  =4  0 
DO  130  K=  XI ,6* 

IF  ( WSl.lE.FW(K)  I  GO  TO  135 
130  CONTINUE 

135  TX(1>=1  R(K)  *<TR(K-n  -  TR<K)  )  *<FW(K)  -MSI)  /f  FH  (  X) -FM(K-l) ) 
GO  TO  145 
140  TX(1)=0.0 
145  CONTINUE 
TX (2) =1. 0 
K  Is  1 

IF  (W  (2)  ,L  T  •  1 .  CF  -2  C)  GOTO  165 
IF  <  A  nS( 2 ) .LE.-5.0)  GO  TO  165 
WS2-ALOG10 (HC2>) ♦APSI2J 

IF  (WS2,  LT.  -2.3U63)  TX ( 2) r  1  , 06 7 78 7* E X F ( 1, 6 5556 5*WS 2 ) 

IF  (WS2.LT . -2. 3U6A)  GO  TO  165 
IF  (WS2.PT.  3. 56*2)  SO  TO  16C 
IF  (W52.GT.  2,0  Xi*4C 
00  150  K-  X  l » 6 7 
IF  (  WS2.LF.  FW(K)  )  GO  TO  155 
150  CONTINUE 

155  TX(?>=TfMK>*<TR<K-l>-TR<K)>*<FH(X)  -WS2  >  /  <  FW  (  K)  -F  N  (  K-  1 )  > 
GO  TC  165 
160  TXi 2) =0 , 0 
165  CONT  TNU£ 

TX (3) =1. 
xj=  i 

IF  (W ( 3) .LT .1 . ?r-?C>  GO  TD  166 
IF  <A*S(3> .IE. -6.0)  GO  TO  165 
WS  3=  A  LOGIC  <W(M)4a0S(T> 

IF  (WS3  Li. -1. 6776)  T X ( 3) = 1 .- . 05 5 19 4*E X P < 2. 3fc 76 5 3’N S 3) 
IF  CWS3.LT.-1.6776>  GO  TO  165 
IF  (WS3.GT. 2.9345)  30  TO  1PC 
Ir  ( WST.  C-T.  1.  5)  Klr36 


TRA  121G 
TRA  1220 
TRA  1230 
TRA  12  40 
TRA  1250 
TRA  1260 
TRA  1270 
TRA  1260 
TRA  1290 
TRA  1300 
TRA  1310 
TRA  1320 
TRA  1330 
TRA  13*0 
TRA  1250 
TRA  1360 
TRA  1370 
T  PA  136  0 
TP A  1390 
T  Rr  1400 
TRA  1410 
TRA  1420 
TRA  1430 
TRA  1440 
TRA  1450 
TRA  1460 
TRA  1470 
TRA  1460 
TRA  1490 
TRA  1500 
TRA  1510 
TRA  1520 
TRA  1530 
TRA  1540 
TRA  1550 
TRA  1560 
TRA  1570 
TRA  1500 
TRA  1590 
TRA  1600 
TRA  1610 
TRA  1620 
TRA  1630 
TRA  1640 
TRA  16  50 
TRA  1660 
TRA  1670 
TRA  1660 
TRA  1660 
TRA  1700 
TRA  1710 
TRA  1720 
TRA  1730 
TRA  1740 
TRA  1.7  50 
TRA  1760 
TRA  1 7  7 C 
TRA  17e0 
TRA  1790 
T  PA  1600 


Table  A 1 .  Listing  of  Fortran  Code  LOWTRAN  5  (C'ont. ) 


PO  170  K=*l,67  TRA 

IF  (WS^.LE . FQ(K) )  GO  T0  175  TRA 

170  CONTINUE  TRA 

175  TX(3)=TP.(K)  -<T»(K) -TR(K-l)  )  *«FO(K)-N?3)  /< FO <K)- FO(K-l) >  TRA 

GO  TO  185  TRA 

160  T X (  3)  =0,T  TRA 

105  CONTINUE  TRA 

TX(10)  =  *’Ti*M7)+'r,f?*W(  1?>*  YY3*W(  1?)  +YY4*W<14>  TRA 

TX(7)  =  XX1*H<7)  *XX?*W  (1Z)+XX3*W  ( 1 3) +XX4* W < 14 )  TRA 

SUM=SUH+T X( 7)  TRA 

TX( 9) =SUH  TRA 

00  205  K=  utKH AX  TRA 

IF  tTX(K)  .EC. 0,01  GO  TO  195  TRA 

IF  (TX(K)  .  LE,  0*  1 )  GO  T0  19  0  TRA 

IF  (7X00  .GT.2Q.)  GO  TO  20  0  TRA 

TX(K)=EXP(-TX (K>)  TRA 

GO  TO  205  TRA 

190  TX<  K)  S  1 .0-TX(  K)  ♦  0.  **TX  (  KJ  *T  X(  K)  TRA 

GO  TO  205  TRA 

195  T  X(  K)  =1,0  TRA 

GO  TO  205  TRA 

2  00  TX  <K ) =0 •  TRA 

205  CONTINUE  TRA 

TX  (9)  =TX  (1)  *TXC’)*TX<3>  *TX  C9)  TRA 

IF  UV.GE.130C0)  TXC?)*TX(8>  TRA 

ALAM« 1*  9f ♦0A/V  TRA 

IF  (IEMISS.  EQ.0)  90  TO  220  TRA 

0BIK=FF  CTgov  (  IK)  fy/ )  TRA 

TLNEW=(TX(9)*TXI1C))/<TX<7)  *TX(6>  )  TRA 

TSNEtfs(TX(7>MX(6n/TX<10)  TRA 

OTAU=TLOLO-TLNEW  TRA 

IF  <OTAU,lT,i,OE-5,AHO» TLNEN, LT.l  ,0E-5)  GC  TO  215  TRA 

SUMV=$UMV«-O,5*09IK*OTAU*<TSOLD*TSNEH)  TRA 

TLOLO=TLNEM  TRA 

TiOLOsTSNfcN  TkA 

210  CONTINUE  TRA 

215  CONTINUE  TRA 

T  A  UG=  0  TRA 

IF  (HMIN.LE,0,0.  ANP,IL*EQ,1)  TAUG=TX<9>  T  RA 

TlsTPOUNO  T  RA 

99G=FF<T1, V)MAUG  TRA 

IF  < HHI N, L  E  .  0,  0)  SUMV=SUMV  *B8G  TRA 

SUMVV=SU*n*  TRA 

IF  (IV.GT.IV1)  FACTOR*l.D  TRA 

IF  <  I V,  GE. IV2)  F  ACT OR=0 • 5  TRA 

SUMV- (I,0r+04/V**2)*SUMV  TRA 

RA05UH=RA  ESL'N  *DV*F  A3  TOR’SUH  V  TRA 

IF  1JP.EO. 0)  PRINT  2 65 ,  V, ALA M,SUHV ,SUMVV ,RA DSUM ,T X (9)  7 RA 

IF  <SUHV,GF  .RBOHAX)  VRHAX=V  TRA 

IF  (SUHV.GE.RAOMAX)  RA  DMAXcSUMV  TRA 

IF  (SUHV.LE.RAPMIN)  VRH IN*  V  TRA 

IF  <SUMV.LE  ,9A0NIN)  R A DHI'I  =  SUMV  TRA 

WRITE  (  7  ,  ?3  ^5  V ,  ALA*  ,SU MV ,  S UttVV  , RA DSU*  ,  TX  <9  )  TRA 

220  TX  ( 1  0  )  =  1  •  “T x  ( 1 0)  TRA 

A0=1  ,-TX (9>  TRA 

IF  (IV. EQ, IVl.OR.I V.  EQ. IV2)  A0=C.5*A9  TrA 

SUMA=SUHA*AP»rv  TRA 

IF  (IEMISS.  EG.  1)  GO  TO  225  TRA 

IF  <JP,EO,Q>  WRITE  (6,260)  IV  ,  AL  AH  ,TX  (  9)  ,  (T  X  (JO  F«*l  ,7)  ,  TX  ( 10  )  ,  SUMT  RA 
l,TX(il>  TRA 


16  10 
1620 
16  30 
18  *10 
1650 
I860 

18  70 
1880 
16  90 
15  CO 

19  10 
1920 
1930 
1940 
1950 
1960 
1970 

19  8  0 
1990 

20  00 
2010 
2120 
2  0  30 
2040 
2050 
2060 
2  0  70 
2060 
2090 
2100 
2110 
2120 
2130 
214C 
2  15U 
2160 
2170 
2180 
2150 
2?00 
2210 
2220 
2230 
2240 
2  2  EC 
2260 
2270 
2280 
2250 
2300 
2310 
2320 
2  3  2  C 
2340 
2750 
2360 
2370 
2300 
2390 
2400 


191 
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c 


IF(  JP.EO.O)  WRITE  (6,483)  IV  ,ALAM,£XTINC, ABSORB 

WRITE  (7,240)  IV,»LAM,TXO  )  ,  (TX  (K>  ,K6  1,7)  ,TX  (10)  ,TX(11> 

225  continue 

IE  (IV.IE.IVEI  GO  TO  730 
GO  TO  5 

230  00= 1. 0-SUMA/F  LOOT ( IV -TV1) 

PRINT  24  5,  IV1  ,TV,<!JH(.,«B 

IF  (IEMISS. EQ.l)  DRI  NT  250  ,  RA OSUW i VRM I N , RA DMIN , VPM 0 X ,RA DM AX 
RETURN 


TRA  2410 
TRA  2420 
TRA  2430 
TRA  2440 
TRA  2450 
TRA  24fc0 
TRA  2470 
TRA  2400 
TRA  2490 


TRA  2500 

235  FORMAT  ( F 6 . 1 , FI  3. 5 , 3 E 1 3 . 5 , F 1 3 . 6)  TRA  2510 

240  F0RMAT(I6,1  1F°.4,9X,E9.4)  TRA  2520 

245  FORMAT  (27H  INTEGRATED  ABSORPTION  FROM,  15, 3H  TO, 15,711  CM-1  =,F10.2TRA  2530 
1,2  3HAVE  RAGE  TRANSMITTANCE  =,F6.4>  TRA  2540 

250  FORMAT  <2?H  INTE  GRATFO  RAOIANCE  =  ,  E 1  ?  .  5 , 1  3H  H  A  IT  CM  -2  SR./7H  RADMITRA  2550 
IN, FI?. 3, El  2.5,/, OH  RAOHAX  , F 1 2. 3 , E 12. 5)  TRA  2560 

265  FORMAT  <161  ,/10X,3?H  F  RE3  WAVELENGTH  TOTAL  H2 C ,5 X , 4H C02 ♦ , 5 X , T RA  25  70 

164H070NE  N?  CONT  HPO  CONT  MOL  SCAT  AEROSOL  AEROSOL  INTEGRATETRA  2500 


20, 1  2H  NITRIC  Ari0/11X,14H  CM-1  M  IC  RONS ,  8  (4  X ,  5H  TRAN  E )  ,  4  X ,  ?  OH  ABS 
3  ABSORPTION  ,4X,  6HTRANSI 
2  60  FORMAT  ( 1  0  X  ,  1 6 , 1  0- 9.  4  ,  F  14 .  4  ,F  9 . 4 ) 

265  FORMAT  (30X,Ff,l,F13.4,3E13.5,F13.6> 

END 


TRA  2690 
TRA  26  00 
IPA  2610 
TRA  2620 
TRA  2630 


I 


11)2 


Table  Al.  Listing  of  Fortran  Code  LOWTRAN  5  (font.) 


SUBROUTINE  TPTN 

TRF 

10 

tOWTRAN 

TRANSMITTANCE  FU6 

C  T IONS 

TRF 

20 

COMMON  /TRFNFo/ 

TR167)  ,FH<  67)  ,FQ<67) 

TRF 

30 

DATA (TR(I) « 3=1, 

67)7 

TRF 

40 

1 

*  9990 » 

. 5930. 

,9960, 

.9940, 

.992  0  , 

•  9900  , 

.9800 , 

•9700, 

TRF 

50 

2 

■  6600  * 

. 9510, 

•  9400, 

.  930  0, 

.9200, 

.9100  , 

.9000 

.8800, 

TRF 

60 

3 

#6600, 

.6400, 

.8200, 

.8000, 

.7800, 

•  7f  00  , 

.  7400  , 

.  7200  , 

TRF 

70 

4 

.  7000  , 

.6800, 

•  6  6C  0  , 

.  6400  , 

.6200, 

•6000 , 

. c80C  , 

. 5600, 

TRF 

80 

5 

.5400, 

. 52C0, 

. 5C0D, 

•  4801  , 

. 4600 , 

.  4400  , 

.4200  , 

.4  000, 

TRF 

90 

6 

.3600, 

. 3600, 

.3400, 

. 3200, 

. 3000 , 

. 2800 , 

.  2600  , 

.2400  , 

TRF 

1  00 

7 

•  2200  , 

•  20  CO, 

.1810, 

.  16  0  (J, 

.  140  0, 

.1200, 

.  1000  , 

.  0  600  , 

TRF 

110 

a 

•  0600, 

.  0400, 

,0  300  , 

, 0200, 

.0153, 

•  U 100  , 

. coeo , 

•  0060, 

TRF 

120 

s 

.  0040  , 

•  00  e  0, 

.0010/ 

TRF 

130 

DATA ( FU ( I) ,  1=1, 

67)/ 

TRF 

140 

i 

-2.3468, 

-2.03*2, 

-1  .6990,- 

1 .4815, 

-1.3279, 

-1. 20  07  , 

-.7825, 

-.5229, 

TRF 

150 

2 

3468, 

-.1938, 

-.0655, 

.0414, 

.1553, 

. 2430 , 

.  2324  , 

.4030, 

TRF 

160 

3 

•  6129, 

♦  ??4  3  , 

.8261 , 

. 9191, 

1.000  0  , 

1.0792, 

1, 1461  , 

1.2122, 

TRF 

170 

4 

1.267?, 

1. 3284, 

1.3892, 

1 . 4409, 

1,4955, 

It  5441  , 

1.  5966  , 

1.6435, 

TRF 

100 

5 

1. 6657, 

1.  7340, 

1.7782, 

l , 6261, 

1,3692, 

1.9 191  , 

1.9638  , 

2.0086, 

TRF 

150 

6 

2,0607, 

2. 1038, 

2.1461  , 

2, 1875 , 

2.2304  , 

2.2768, 

2.3263, 

2.3717, 

TRF 

200 

7 

2.4183, 

2.46<>e, 

2.6159, 

2*5740, 

2. 6284, 

2.  6902  , 

2.  7559  , 

2. 6261  , 

TRF 

210 

6 

2. 90  31  , 

3.  0000  , 

3,0607, 

3 , 1461, 

2,2041, 

3.  2718, 

3, 2054, 

3.  3444, 

TRF 

2  20 

9 

3.3979, 

■*.4914, 

7.56*2/ 

TRF 

2  20 

DATA<FO( I) , 1=1, 

67)  / 

TRF 

240 

1 

-1.6778, 

-i  .a9eo, 

-1.1192, 

-  .Q508, 

- .8239, 

-.7258, 

4318, 

-.2366, 

TRF 

2  50 

2 

-. 1074, 

f .  coco. 

.3  969, 

.176  1, 

■  2704, 

. 3010, 

.  3522 , 

.4624, 

TRF 

260 

3 

. 5563, 

. 6435, 

.724?, 

. 7924, 

.8573, 

.9191 , 

♦9731, 

1.0253, 

TRF 

270 

4 

1.0719, 

1.11  7  3, 

1.1614, 

1 . 2095, 

1.2480, 

1.  2900  , 

1. 3263  , 

1.3617, 

TRF 

280 

5 

1.3979, 

1. 4393, 

1.4698, 

1 .4963, 

1.5314, 

1.5682, 

1. 6021, 

1.6335, 

TRF 

290 

b 

1.6721, 

1 . 70  *6, 

1 .T482, 

1  .  7924, 

1.8325, 

1.8865  , 

1.9395  , 

2.0000, 

TRF 

3  00 

7 

2. 0607, 

?. 1206, 

2. 191?, 

2.2552, 

2.3785, 

2.  4313  , 

2.5185  , 

2.6435, 

TRF 

210 

a 

2.7853, 

2.9777, 

7.1072, 

3.  2553, 

3,  361  7, 

3.  *771  » 

3,  5563  , 

3.6233, 

TRF 

3  20 

9 

3. 7076, 

7.6325, 

3.9745/ 

TRF 

330 

RETURN 

TRF 

2  40 

END 

TRF 

350 

1  S)3 


KI-  -..1, 


Table  Al.  T.isUng  of  Fortran  Code  LOWTHAN  5  (Cont.) 


SUnR0UTlNc  AfREXT  (V) 

AT  R 

10 

AT  R 

20 

INTEPPOLATES  AEROSOL  EXTINCTION  AND  AQSORPTlCK  COEFFICIENT 

ATk 

30 

FOR  THE  W.\ENUM«FP,  V. 

ATR 

40 

ATR 

50 

COMMON  /CARC1/  iODEL ,IHAZI , IT YPE , IE N, JP , IK, HI,  M2, M3  » ML  ,  I  EMI  S  S  ,R0 

ATR 

eo 

1  ,ieOUNr,I<EASN,TVUiCN,VIS 

ATP 

70 

COMMON  /tAfir?/  Hl,H'>,ANGLE>RANGE»5FTAf  hhin,  re 

AT  R 

eo 

common  /CARC?/  V1,V?,OV,AVW,CO,CH,W<15)  ,EUS>  ,CA,FI 

ATR 

90 

COMMON  / CNTRL/  LENST  ,KHAX, M,IJ , J 1 , J2, J MIN , JC  >1R * r H , IKM A X, HL L , KP 1 

ATR 

100 

1  ,IFINf), NLt IKLO 

ATR 

110 

COMMON  /MPATA/  *C*4>  ,P(7,3  4),T<7,34>  ,WH<7,34>  ,HC(7, 34) 

ATR 

120 

1  ,SEASN  (2)  ,VULCN<5>  ,  WSB  (9)  , HZ ( 15) ,HMIX < ?4) 

ATR 

130 

COMMON  RELHUM ( 34 )  ,  HSTOR (34  )  ,EH  (16,34)  ,  ICM<4)  #VH(15)  ,TX(15> 

ATR 

140 

COMMON  Wl ay (34,15) ,WPATH(5fl,15) ,  TB6Y<6  8) 

ATR 

150 

COMMON  AeSC(4 ,43) , rxTP(4t4  0) * VX2(40) 

ATR 

i  to 

COMMON  /AFR/  FXT V  <  4)  »  AB5V  <  4 ) 

ATR 

1  70 

00  5  1=1,4 

ATR 

160 

E  XT  V  (  I)  =0  . 

AT  R 

150 

A9SW  <I)  =  0. 

ATR 

2  CO 

5 

CONTINUE 

ATR 

210 

IF  (IHO’F.rn.O)  RETURN 

ATR 

220 

ALAM=1.0E  *47V 

ATR 

230 

00  10  N= 1  *  40 

ATR 

240 

XO=ALAM-VX?(N) 

ATR 

250 

IF  (XO)  15, 1C, IT 

A'  R 

2  E»  0 

10 

CONTINUE 

AT  R 

2  70 

N=  40 

ATR 

280 

15 

VXD*  V  Xi?  (N)  -VX?(N**1  > 

ATR 

290 

DO  20  1*1,4 

ATR 

300 

EXTV  (I)*(FXTr (I,N) -EXTC (I, N-l) ) •XO/VXO  +  EXTC ( I»N) 

ATR 

310 

ARSV<  I)  =<  A3SC(I,N)  -A  ESC  (I,  N-l))  *XO/VXO»ABSC  ( I  ,N  ) 

ATR 

320 

20 

CONTINUE 

ATR 

330 

RETURN 

ATR 

340 

F  NO 

ATR 

3  50 

194 


Table  Al.  Listing  of  Fortran  Code  LOWTRAN  5  (Cont. ) 


SUB  ROUT  INE  hNC?  (1/»HABS) 

hng 

10 

c 

HNO 

20 

c 

HN03  STATISTICAL  9ANH  PAR AMETERS 

HNC 

30 

c 

HNO 

40 

OlHENSTQN  H1C15)  f  H2U6),  H3<13) 

HNO 

50 

c 

ARRAY  HI  CONTAINS  HN 0 T  A0S ,  COEF (CM-1A TN-1)  FROM  85Q  TO  920 

CH-1  HNC 

60 

OATA  Hi/ 2. 197,3*911,  6, 154,  6il50,9. 217, 9,461, 11,  56, 11*10 , 11.17 

,12  *4HN0 

70 

10* 10, 49 ,7.* 09,6. 13 6, 4» 399, 2.866/ 

HNO 

80 

c 

ARRAY  H->  CONTAINS  HNC*  A9S  ,  COEF(CM-lATH-l)  FROM  1275  TO1350 

CM-  1  HNO 

90 

OATA  H2/?i  828,4.611,6.  755,  8. 759,10. 51 ,13, 74 ,18.  00*21.51, 23.09 

,  21.6HN0 

100 

18  ,21, 32, 16. 6?,  16. A 2,  17.87,  14.  86r  8. 7*6/ 

HNO 

110 

c 

ARRAY  H?  CONTAINS  HNC**  AB5 ,  COEF(CH-lATK-i)  FROM  1675  TO  1735 

CM" 1  HNO 

120 

DATA  H3/5.  0  03, 8.  00  3,14.  12,19. 63,23.31,23.58, 23.  22,21.09,26.99 

, 25  »8HN0 

130 

14, 24.79, 17, 68, 9.420/ 

HNO 

140 

H  A  6  5  '  0  • 

HNO 

150 

IF  tV.GE. 850. C. ANO, V. LE t 920.0)  GO  TO  5 

HNO 

160 

IF  <V.Gt. 1275.0, AND. V.LE.1350.0)  GO  TO  10 

HNO 

170 

IF  IV. GE. 1675, 0.ANP.V.LE. 1735.0)  GO  TO  15 

HNO 

180 

RETURN 

HNO 

190 

5  I=tV-845.)/5, 

HNO 

200 

HABS=H1 (I) 

HNO 

210 

RETURN 

HNO 

220 

10  I* <V-1?70. >/5, 

HNO 

2  30 

HABS=H?( I) 

HNO 

240 

RETURN 

HNO 

250 

15  I-(V-1670.)/c. 

HNO 

2  60 

HABS*HM  I) 

HNO 

5  70 

RET URN 

HNO 

580 

ENO 

HNO 

2  50 

105 


Table  A 1 .  Listing  of  Fortran  Code  LOWTRAN  5  (Cont.) 


SUBROUTINE,  ClCTft  <C1L,L> 
C  W  ATF  9  VAPOR 


c 

Ci 

LOCATION 

1 

V 

= 

750  i 

CH-1 

c 

Cl 

LOCATION 

1770 

V 

9195 

Cm  -l 

c 

Cl 

LOCATION 

1771 

V 

= 

9875 

cm  •  i 

c 

Cl 

LOCAT ION 

r\  55 

V 

= 

12r95 

cm  - 1 

c 

Cl 

LOCATION 

2356 

V 

12350 

CM-l 

c 

Cl 

LOCATION 

258  0 

V 

= 

14520 

CM  -  1 

COMMON  /Cl/Cl  (2580  ) 
PATMClCDvIa  1,  19D/ 


1 

3.9?, 

3 

77, 

3.54, 

3.42, 

3 

.37, 

3.37, 

2 

3. 02, 

2 

.96, 

2.97, 

3.00, 

V 

.08, 

3.12, 

5 

3.02, 

3 

.07  , 

3,05, 

3.01, 

2 

•  9. , 

2.83, 

4 

2.  62, 

2 

67  , 

2.72, 

2.71, 

? 

fO, 

2.46, 

5 

2.1Q, 

2 

17  , 

*.17, 

2.20  , 

1 

.  26  , 

2.  34, 

6 

1.92, 

1 

.81, 

1  .70, 

1.79, 

1 

.Ci, 

1.84, 

7 

1.39, 

1 

.70  , 

1.2*, 

1.16, 

1 

19  , 

i.ie, 

8 

1.54, 

1 

’6, 

1.12, 

.  *9, 

•  £9, 

.49? 

9 

.66, 

.73, 

,53, 

.43, 

.91, 

.52, 

S 

.80* 

.63, 

.47, 

.32, 

- 

.  08, 

-.21, 

1 

.16, 

.09, 

-.03, 

-.21, 

- 

.37, 

-,35, 

% 

-.48, 

- 

.6?, 

-.40, 

*9, 

- 

.43, 

-•  f  7, 

t 

-.50, 

- 

.47, 

-.39, 

-.30, 

- 

.37  , 

-.40, 

s 

-.40, 

- 

.'2, 

-.21, 

-.09, 

- 

•  18  , 

-.16, 

$ 

-.20, 

- 

.??, 

-.10, 

-  .  05, 

- 

.11, 

13, 

% 

.11, 

,?7, 

*  26, 

.19, 

.  11, 

0.  00, 

% 

.22, 

.  ?«  , 

.39, 

*  54  , 

•  66  , 

.  75, 

s 

•  76, 

68, 

1.01, 

1  .  16, 

1 

.18, 

1.14, 

2 

1.41, 

1 

.75, 

1.83, 

1.99, 

2 

.05, 

2.03, 

DATA  (Cl  (  I>  ,  It  191, 

38  0  )  / 

1 

1.91, 

2 

G8, 

2.  2  4, 

2.41, 

.63  , 

2.68, 

2 

*.91, 

? 

.93, 

3.02, 

T.  16, 

1 

.23, 

3*  39, 

3 

3.59, 

3 

.58, 

3.57, 

3.61, 

3 

.71, 

3.71, 

4 

3.  80, 

3 

95, 

4.05, 

4  .  ?  5  * 

4 

.0  2, 

3.99, 

5 

4.  35, 

4 

.‘■9, 

4.  58, 

4.62, 

4 

.63, 

4.61, 

6 

U,4Q. 

L 

.96, 

4.40, 

4.  26, 

L 

.14  , 

3.92, 

7 

3.24, 

3 

.<•7, 

3.66, 

3.60, 

3 

.93, 

4.00, 

6 

4.35, 

4 

31, 

4.23, 

4.20, 

4 

•  24, 

4.28, 

9 

4,46, 

4 

<•0  < 

4.30, 

4.  22, 

4 

.  13  , 

4*07, 

S 

4.16, 

4 

.  09, 

3.99, 

3.94, 

3 

.93, 

3.  9  i, 

2 

3.70, 

3 

.64, 

3.40, 

3.30, 

3 

•  ?i. 

3.42, 

2 

3.  21, 

3 

14, 

3.10, 

3.  08, 

3 

•  ?1  , 

2.98, 

2 

2.72, 

7 

.76, 

2.82, 

2.85, 

2 

.66, 

2.75, 

2 

2.56, 

2 

.49, 

2.37, 

2.25, 

2 

.14, 

2.0  8, 

2 

2.15, 

•9 

.06, 

1.**, 

2.03, 

2 

.  05  , 

1.96, 

2 

1.57, 

1 

.57, 

1.60, 

1.63, 

1 

.91, 

1.  38, 

2 

1.  04, 

1 

.01  , 

.92, 

.  84, 

.92, 

.97, 

2 

1.01, 

.91  , 

.70, 

•  6  S  , 

.47  , 

•  41, 

$ 

.36  , 

.43, 

.47, 

•  45, 

.36, 

•2?y 

DATA  (C 

1(1), 1^  381, 

570)/ 

1 

.  38, 

.37, 

.29, 

.19, 

.13  , 

.11, 

2 

-.31, 

- 

.39, 

-.4?, 

-.50, 

- 

.59, 

-.68, 

3 

-1.14, 

-1 

.22, 

-1.27, 

-1. 28,-1 

.  33, 

-1. 32, 

4 

-1.32, 

-1 

,98  , 

-2.09, 

-H. ?l,-2 

.21, 

-2.24, 

5 

-2.70, 

-2 

.  43  , 

-2.57, 

-2 .56, 

-2 

.59, 

-2.67, 

6 

-2.52, 

-  P 

.42, 

-2.29, 

-2. 14,-2 

.00, 

-1.67, 

7 

-1.  12, 

-1 

•  ci. 

-•*9, 

-.75, 

- 

.68, 

-.57, 

8 

-  .  26  , 

- 

.19, 

-.13, 

-.11, 

- 

.01  , 

•  05, 

o 

o  41  » 

•  4?, 

.44, 

•  43, 

.  36  , 

.-'5, 

2 

.21, 

.33, 

.49, 

•  65  , 

.76, 

.71, 

c  1C 

10 

CIO 

20 

Cic 

30 

CIO 

40 

cir 

50 

CIO 

60 

CIO 

70 

CIO 

80 

CIO 

«o 

CIO 

ICO 

3.36,  3.33, 

3.J5, 

3.13, 

CIO 

110 

3.06,  3.03, 

3,  DO  , 

3,01, 

CIO 

120 

2.71,  2.62, 

7.s«, 

2.57, 

CIO 

130 

2.35,  2.26, 

2.22, 

2.23, 

CIO 

140 

2.42,  2.39, 

2.20, 

2.01, 

CIO 

150 

i.83,  i.  eo , 

i.  71, 

1.51, 

cic 

160 

1.21,  1 . 33 , 

1.47, 

1.53, 

CIO 

170 

•60,  .71, 

.79, 

.99, 

CIO 

100 

.67,  .73, 

.20, 

.83, 

Cic 

190 

-.29,  -.21, 

-.  01, 

.06, 

CIO 

200 

30  ,  -.  31  , 

37, 

-.42, 

CIO 

210 

-.63  ,  -.88  , 

-.79, 

-.60, 

CIO 

220 

-.51,  -.67, 

87, 

-.58, 

CIO 

230 

-.19,  -.28, 

-.33, 

-.35, 

CIO 

2*  0 

-.27,  -.27, 

18, 

-.06, 

CIO 

2  50 

-.09,  .02, 

.08, 

.12, 

cic 

260 

.79,  .79, 

.71, 

.69, 

CiO 

270 

1.05  ,  1  .  02  , 

1.11, 

1.23, 

CIO 

260 

2.00,  1.96, 

1.90, 

1.86/ 

CIO 

250 

CIO 

300 

2.67  ,  2.73, 

2.79, 

2. 81, 

CIO 

210 

3 .  34  ,  3,43, 

3.57, 

3.59, 

C  1C 

320 

3.69,  3.64, 

3.(0, 

.5  #  6  8 , 

CIO 

330 

3.96,  4.01, 

9,13, 

4.22, 

cto 

340 

4.57,  4.56, 

4.96. 

4.53, 

CIO 

350 

3.63  ,  3.35  , 

3.16, 

3.10, 

CIO 

360 

4.04,  4,15, 

4.  23, 

4*31, 

CIO 

370 

4.35,  4.42, 

4.42, 

4.44, 

CIO 

3  00 

4.12,  4  .19, 

4.22, 

4.23, 

C  ID 

350 

3*86,  3.83, 

3.  80, 

3.78, 

CIO 

400 

3.52,  3 .52, 

3.49, 

3.41, 

CIO 

410 

2.88  ,  2  .78  , 

2.74, 

2.76, 

C1D 

420 

2.64,  2,60, 

2.81, 

2.64, 

CIO 

4  30 

2.11,  2.20, 

2,31, 

2.28, 

CIO 

440 

1  .  84  ,  1. 72  , 

1.64, 

1.59, 

CIO 

450 

1.07,  .91, 

.87, 

C  ID 

460 

1.01,  1.06, 

1.10, 

1.06, 

C  ID 

470 

.39,  .30, 

.34, 

.33, 

CIO 

400 

.21,  .22, 

.29, 

.37/ 

ciu 

490 

Cl  O 

500 

.€3,  -.05, 

-■12, 

-.?4, 

Cl  D 

510 

-.73  ,  - , 8 0 , 

-.92, 

-1*06, 

C  ID 

5  20 

1.  43  ,-l  .51  , 

-1.63, 

-1.74, 

CIC 

5  30 

2.  27  ,-2.36. 

-2.  51. 

-2.65. 

CIO 

540 

2.69  ,-2. 67, 

-2.e«, 

-2.62, 

CIO 

550 

1 .71,-1.51, 

-1.39, 

-n?7, 

CIO 

sec 

47  ,  42  , 

-.  32, 

-.27, 

C  ID 

570 

.08,  .17, 

.  25, 

.31 , 

C1D 

580 

.31,  .25, 

.  25, 

*22» 

C1D 

550 

.51,  .30, 

.13, 

*10, 

CIO 

600 

196 


2  rl7,  .24, 
2  .63,  .64, 

t  .46,  .-*9, 

%  ,67,  .62, 

2  .96,  1.17, 

2  1.91,  ?. Q  2, 


1  2.51  ,  2.66 , 

S  .88,  .8*, 

DAT  A (Cl ( I) ,  I 
1  2.21,  2.20, 

2  2. 57,  2,35 . 


.31,  ,38, 

.“5, 

.51, 

•  56, 

•  60  , 

.f3, 

.62 

•  6 

.69, 

.  76  , 

.75, 

,70, 

.62, 

•  5  3 

,3 

"i  .3?. 

,  38, 

•  42, 

.47, 

,50  » 

.58, 

,69 

.64,  .68, 

,  76, 

.90, 

1*11, 

1.13, 

1.10, 

.97 

1.38,  1.52, 

1. 70  , 

1.76, 

1  .  54  , 

1 .92, 

1.90, 

1,87 

2.1 

*,  2.10, 

2.19, 

2.JJ, 

2 .25  , 

2.03, 

2  j  01, 

1,77 

2.2 

P,  2.14, 

2.15, 

2.22, 

2 .01 , 

2.14, 

2.26, 

2.36 

2.68 ,  2.69 
1.20,  1,62 
760  )  / 

2.42,  2.50 


7.43,  2.56 
2. 32,  2. 4Q 
2.66,  2. 49 


2.22,  1.95,  l.€l,  1,11, 
1*99,  2.01,  2.14,  2.16/ 

2.49,  2.46,  2.42,  2.37, 


2  #  63  ,  2.60 
2 .32  ,  2.22 
2. 23,  2 .42 


CIO  610 
ClC  €  2£J 
C1C  630 
ClC  6  40 
CIO  6  5  C 
ClO  66C 
CIO  670 
CIO  680 
ClO  690 
ClO  700 
CIO  710 


2.86, 

2.91, 

2.96, 

3.03, 

3.06, 

5.  cl. 

3.30, 

3,46, 

5.61, 

3.54, 

3.56  , 

3.55  , 

3c57, 

3.61, 

*♦99,  4.  06  , 

4.02, 

4.06, 

4.12, 

4.  28, 

4.30, 

4.53, 

4  i  64  , 

4.55, 

4.40, 

4. 28  , 

4.  32, 

4.38, 

4.14,  4.20, 

4.25, 

4.32, 

<•  .31  . 

4.  31, 

1.2  7, 

Table  Al.  Listing  of  Fortran  Code  LOWTKAN  5  (Cont.) 


t  1,59, 

1. 50, 

1.47,  1, (?,  i . 22, 

1.12,  1,06,  1.02,  .97, 

.92, 

C  ID 

1210 

t  ,r0. 

.87, 

,«4,  .82,  .79, 

•76,  .76,  .75,  .72, 

•  71, 

C1D 

12  20 

S  .71, 

.  70  , 

♦59,  -47,  ,61, 

.59,  .52,  .48,  ,41, 

.39, 

C  ID 

1230 

J  .  38  , 

.33, 

.32,  .*0,  .30, 

,30,  .29,  .28,  .27, 

.26, 

C1D 

1240 

*  .25, 

.23  , 

.27,  .21,  .20, 

.18,  ,14,  .13,  .06, 

.01, 

C1D 

12  50 

%  -.03 , 

-.07, 

-•11,  -.IS,  -.21, 

—  .24,  -.29,  -.32,  -  .  38  , 

-.41, 

C1D 

1260 

S  -.<*5, 

-.50, 

-.54,  -.61,  -.69, 

-.76,  -.84,  -.90,  -.97, 

-1.01, 

C  10 

1270 

J-l. 10, 

-1,1?, 

-1. 1^,-1 ,72,-1.  28, 

-1. 30,-1 .33  ,-l .?b,-l . 39, 

-1.43, 

CIO 

1280 

3-1.48, 

-1.50, 

-1.52, -1 .47,-1 . 61 , 

-1.66,-1.70,-1.72,-1.78, 

-1.81/ 

CIO 

1250 

OAT  A  ( Cl  <I>  ,1 

=  1141,1330  > / 

CIO 

1300 

1-1. 89, 

-1,92, 

-2,  GO  »  "2  8,-2 .16, 

-2. c 4,-?. 31, -2 ,40,-2.48, 

-2.54, 

CIO 

1310 

2-2.61, 

-2. 71, 

-2.83, -2,95, -3. 10, 

-5.  0  0,-5. 00  ,-5.00  , -5,  0  0, 

-5.00, 

C1D 

1320 

3-5. CC, 

-5,00, 

-5.00,  -5.ro, -5 .00, 

-5. 00,-5.  00  ,-  5.00,-5.00, 

-5.00  , 

ClC 

1  330 

4-5.  GO, 

-5,  P  0  , 

-5. 00, -5. 30,-5. 00, 

-5. 00,-5. 00,-6.00,— 5, 00, 

-5.00, 

CIO 

1340 

5-5.00  , 

-5,00, 

-5.0  0,  -5. 00  ,-5. 00  , 

-5. 00,-5  .  DO, -5  .00 , -5. 00, 

-5.00, 

cm 

1  3  50 

6-5.00, 

-5.00, 

-5. 00, -5.  P0 ,-5.  CO , 

-5.00 ,-5.00  ,-5*00  ,-5.00, 

-5.00 , 

C  10 

1360 

7-5,00  , 

-5,0  0* 

-5.00 v *5, CO, -5. PO, 

-5. 00,-5. 00,-5.00 ,-5. 00, 

-5. 00, 

CIO 

1370 

8-5, 00, 

-5.  00, 

-5*00, -5. 00, -5. 00 , 

-5. 00, -5 . 00,-5 .CO , -5. 00, 

-5.00, 

CIO 

1383 

9-5.00, 

-5.  00, 

-5, 00,-5,  0  0  ,-5.  00  > 

-5,00  ,-5.00  , -5  .00  ,-5. CO, 

-5.00, 

CIO 

1390 

i-3.  78  , 

-3.33, 

-3.01,  -2  *  *  2,  -2  •  68, 

-2.  49,-2,  30  ,-2.17,-2.00, 

-1*81 , 

ClC 

14  00 

t-1. 60 , 

-  1 . 4  1 , 

-1.13,  -.00,  - . 79, 

—.63,  —.40,  —.36,  —.28, 

- .  16, 

CIO 

14  10 

$  -.Of, 

•  0  8, 

.20,  ,28,  .41, 

.54,  .69,  .80,  .92, 

1 .04, 

CIO 

14^0 

J  1.19, 

1.19, 

1.01,  .98,  1.02, 

1.19,  1.29,  1.30,  1.29, 

1.38, 

CIO 

14  30 

J  1.19, 

1 .79, 

1.42,  1.43,  1.70, 

1.62,  1.54,  1,41,  1.53, 

1.86, 

CIO 

1  440 

S  1.96, 

1  .97  , 

2.0  2,  2.01,  1.94  , 

1.54,  1. 83,  2,03,  2.21, 

2.42, 

ClC 

1450 

$  2. 30, 

2,  16, 

2.02,  2.02,  2.02, 

2,13,  1.90  ,  1.71,  2.01, 

1.56, 

ClO 

1460 

$  1.56, 

1.51, 

1.30,  1.63,  L.64, 

1.67,  1.70,  2.22,  2.39, 

2.38, 

CIO 

14  70 

$  2.30, 

1.93, 

2«  7 9,  2  .49,  2,52, 

2.67,  2.21  ,  2.18 ,  2.40, 

2.41, 

CIO 

1460 

$  2.45, 

’.51, 

2.23,  2.49,  2.30, 

2.61,  2.72,  2.52,  2.63, 

2.56/ 

CIO 

14«0 

DATA  (Cl  (II , I 

-1 3  M,  15201/ 

ClC 

1.5  00 

1  2.51, 

2.  73  . 

2.62,  62  ,  l  .80  , 

2.74,  2.79,  2.74,  2.70, 

2.88, 

ClD 

1510 

2  2.81, 

2.  ’2. 

2,76,  2.  64 ,  2. 92, 

2.98,  2.88,  2,86,  3.C2, 

3.06, 

CIO 

1520 

3  3.26, 

3.03, 

3.14,  7,?0,  3.03, 

3.11,  3.15,  3.30,  3.31, 

3,22, 

ClC 

1530 

.  3.00, 

3.06. 

3, 74,  3.40,  3.37, 

3.32,  3.08,  3.09,  3.09, 

3.01, 

CIO 

1540 

5  3.02, 

3.07, 

?.3l,  ?.?1,  3.31, 

3.67,  3.58,  3.79,  3.70, 

3.49, 

CIO 

1560 

0  J.  3<3, 

11  , 

3*13,  -,'U,  5.10, 

3.01,  3.18,  3.32,  3.43, 

3.35, 

CIO 

1560 

T  3.<.0, 

7.  39, 

J.  39,  3.  51,  3.  54  , 

3,42,  7.50,  3, 67,  3.59, 

3,63, 

CIO 

1570 

«  3.66, 

3.68  , 

3.39,  3.?g,  3.31, 

3.41,  3.  23  ,  3.  32  ,  3.12  , 

2.91, 

ClC 

15  8  0 

0  2.01 

7.  75. 

2.78,  7*72,  2.62, 

2.58,  2.32,  2.22,  2.00, 

1.97, 

ClD 

1590 

i  1.68, 

1.62, 

1 . 64,  1.53,  1.56, 

1.51,  1.52,  1.40,  1.42, 

1.42, 

C  ID 

1600 

$  1.1*0, 

1.61  , 

1*43,  1,56,  1.52, 

1,51,  1.52,  1.39,  1 . 39t 

1.50, 

CIO 

1610 

$  1. CO, 

1.16, 

1.21,  1.20,  1*22, 

1,20,  1.18  ,  1.20  ,  1.19, 

1*17, 

CIO 

16  20 

1  1.10, 

1.10, 

1.09,  1.10,  1.11, 

1.04,  .98,  .90,  .66, 

.90, 

CIO 

1630 

$  .90, 

.90, 

.*6,  .71,  .79, 

,70,  .71,  ,67,  .62, 

•  5  3, 

CIO 

1640 

I  .62, 

.  ’1. 

.20,  .01,  -.06, 

-.17,  -.26,  -.35,  -.44, 

-.53, 

CIO 

1650 

1  -.63, 

-.73, 

-.63,  -.93,-1.04, 

-1. 14,-1. 24 ,-l .34,-1 , 44, 

-1.54, 

ClD 

1660 

$-1.66, 

-1. 76, 

-1.84, -1 ,94,-2. 04, 

-2.  14, -2. 24, -2. 34, -2. 44, 

-2.54, 

CIO 

1670 

$-2.66, 

-2  .76 

-2,84,  -2.94,-3.04, 

-3.14,-3.24,-3.34,-3.44, 

-  3.54, 

CIO 

1680 

$-3.66, 

-7.76, 

-3,84, -3. 94, -4 . 04, 

-5.  0  0  ,-  6.  00  ,-5.00  r-5,  00  , 

-5.00/ 

CIO 

1690 

OATA  <Ci( I) , 

-1521, 1710)/ 

CIO 

1700 

1-5,00 

-5. CP, 

-5.00, -c.ro  ,-5 . cn  , 

-5. CO, -5. CO, -5. 00,-5. 00, 

-5.00, 

ClD 

1710 

2-5,00 

-5.00 

-5.00, -S.00,-5 , Gw, 

-5.00, -5. 00, -5, 00, -5, 00, 

-  5.  00, 

CIO 

1  720 

3-5.00, 

-6,00, 

-  5.90,-5.0  0 »-5 . 00  , 

-5. 0  0  r-6 .00  ,-5 ,00  ,-5  .  00, 

-5.00, 

ClD 

1730 

4-5,00, 

—  5  a  CO, 

-5, 0Pt  -c*--:0,-5.  CO, 

~  5.  C  0 ,  -  5.  DO, -5. CO  ,  -5  .  G  0  » 

-5,00, 

11U 

17  4  0 

5-5,00, 

-6.no 

-6.00,  —4  *00,-6 . 00 , 

-5. 00, -5.  00  , -  5. 00  , -5. 00, 

-5.00, 

ClC 

1750 

. -5, 00 

-5.00, 

-6.00, -5.00  »-5 . 00  i 

-5.00, -5 .00,-5.00 , -5. 00, 

-5.00, 

CIO 

1760 

7-5.00, 

-6. 00, 

- c. 00,-5. no  , -5,  L0  , 

-5. J0  ,-5.  00  ,-5,00  »-5. 00, 

-5.00, 

ClD 

17  70 

8-4. 16 

-4. 06 

-7.97, -7.88,-7.79, 

-?.?0,-7. 01 , -3 .52,-3.43, 

-3.34, 

CIO 

1780 

9-3.25, 

-3.  16, 

-■>,  07,  -2.98,-2.69, 

-2.80, -2. 71 ?.  62  ,-2.53, 

-2.44, 

CIO 

1790 

1-2.36, 

-2.26, 

-'•18,-2.09  »-?  *  00  , 

-1.91,-1.82,-1.73,-1.64, 

-1.55, 

CIO 

1  80  J 

10f 


Table  A 1,  Listing  of  Fortran  Code  LOWTKAN  5  (Cont.  ) 


t 

-1 

<•&» 

-1 

37, 

-1 

?e, 

-1.19, 

-1 

•  10,-1. 0 1* 

J 

- 

56, 

- 

47, 

- 

36, 

-.29, 

- 

.  20, 

-.14, 

s 

12, 

2  2, 

30, 

.35, 

■  61, 

.65, 

s 

50. 

r9, 

71, 

.  86, 

93  , 

1.01, 

s 

1 

12, 

1 

?!, 

1 

24, 

1.28, 

1 

.  36, 

1.43, 

t 

1 

51, 

1 

61  , 

1 

c0, 

1.70, 

1 

.62, 

1.92, 

J 

1 

30, 

1 

26, 

1 

63, 

1 .50, 

1 

,  69, 

1.  5  5, 

J 

1 

8  2, 

2 

23, 

2 

61, 

2.51, 

2 

.  20, 

1.86, 

J 

1 

70, 

1 

90, 

2 

01, 

1.  <32, 

1 

.  91  , 

2.  12, 

OAT A(C 

!(!),! 

=  1  71  1  , 

19  0  0  )  / 

1 

2 

11, 

2 

28  , 

2 

21, 

2.13, 

2 

.  CO, 

1.91, 

2 

1 

91, 

1 

92, 

1 

93, 

1  .  T4, 

1 

•61, 

1.58, 

3 

99, 

86  , 

71, 

.60  , 

•  66  , 

.  31  > 

4 

- 

35, 

- 

59, 

- 

66, 

-.  79, 

- 

94,-1,11,- 

5 

-1 

91, 

-2 

09, 

-2 

27, 

-2.65, 

-2 

.63,-2,81, 

6 

-3 

75, 

-3 

99, 

-4 

13, 

-6.31, 

-4 

.69, 

-4,  66, 

7 

-5 

0Q, 

-5 

00, 

_  r 

00, 

-5. 00  , 

“5 

. CO ,-5. 0C  , 

B 

-3 

89, 

-  3 

57, 

.  7 

32, 

-3.11, 

-2 

. 91,-2.89, 

9 

-2 

29, 

-? 

70, 

-  7 

17, 

-2 

.  27, 

-2. 32, 

J 

-2 

07, 

-1 

96  , 

-1 

77, 

-1.70, 

-i 

.  63  , 

-1.60, 

? 

-1 

09, 

-1 

13, 

-1 

?9, 

-1.19, 

- 

•96  , 

-.93, 

£ 

- 

62, 

- 

c9, 

- 

56, 

-  .63, 

- 

.  ^8, 

29, 

% 

- 

01, 

- 

06, 

- 

20, 

-.16, 

- 

.  02  , 

.18, 

% 

12, 

15, 

26, 

.67, 

•  59  , 

.58  , 

1 

35, 

?3, 

26, 

.19, 

.  06  , 

.10, 

j 

32, 

37, 

58, 

•  64, 

.87, 

.96, 

% 

1 

Of, 

1 

16, 

1 

If., 

1.30, 

1 

.  41  , 

1.60, 

% 

1 

50, 

1 

62, 

1 

3  8, 

1  .  76, 

L 

.  38  , 

1.49, 

£ 

i 

6  6 

1- 

60  , 

1 

5b, 

1.5b, 

1 

.63, 

1.64, 

DATA  (C 

i  <  1 ) ,  1 

=  1901, 

2090)  / 

1 

1 

56 

1 

62, 

1 

62, 

1.61, 

1 

.61, 

1.6?, 

2 

1 

70, 

1 

67, 

1 

62, 

1.56, 

1 

•  70, 

1.67, 

3 

1 

26, 

1 

20, 

1 

13, 

1.16, 

1 

•  19, 

1.29, 

4 

1 

62, 

1 

88, 

1 

62, 

1,89, 

1 

.99  , 

2.00, 

5 

1 

96 

1 

90, 

1 

63, 

1.  *1 , 

l 

.72, 

1.69, 

b 

96, 

63, 

6  3, 

.79, 

.  16, 

.0  5, 

7 

- 

08 

- 

18  , 

- 

20, 

-•  11  . 

- 

.  P6  . 

-.07, 

f 

10 

16  , 

11* 

.’2, 

.62, 

.66, 

9 

41 

3?  , 

32, 

•  61, 

.  50, 

.66, 

1 

21 

36, 

3  b  , 

.28  , 

.  35, 

.39, 

s 

16, 

- 

01, 

- 

23, 

-.61, 

- 

.52, 

-.46, 

s 

- 

03, 

21, 

3  5, 

•  79, 

•  67, 

.46, 

i 

69 

57, 

48, 

*52, 

•  62  , 

.59, 

$ 

11 

- 

08  , 

- 

10, 

“  •  i  6  , 

- 

.43, 

-.62, 

$ 

-1 

<•5, 

-1 

49  , 

-1 

76, 

-1,91, 

-2 

.  01  , 

-1,97, 

% 

-2 

20, 

-2 

01, 

-1 

99, 

-2.00, 

-2 

.  06, 

-2.  37, 

s 

-2 

19 

-2 

10, 

-2 

25, 

-2.16, 

-  7 

.36,-2.64, 

I 

-2 

4C, 

-2 

36, 

60, 

-2.49, 

-? 

.59, 

-2.68, 

t 

-3 

97, 

-4 

20  , 

-4 

67, 

—4 . 66 , 

-4 

.89, 

-5.00, 

dataici  <I>«  I=?091r 

1- 5. CO, -5. vO,-5.CQ,-5.  0  0  ,-5 .00  ,-5,00, 

2 - 5 .00, -^4  0  0  ,-c. 00,-5. no, -5. 00, -*,00, 

3- 5. 00,-5.00,-9.00,  -5.ro,  *5 . 00,-5.00, 

4- 5, 00  ,-5. 0  0  ,-5. 0  0,-5. 9  0  ,-5 . CO  ,-5.00 , 

5- 5.00  ,-5.0 0,-5. 00, -5. 00,-7.  00  ,-5.00, 
b-b .00, -5. 00, -5. 00,-5.00, -3. CO, -3, 71, 
7-2.90  |-7.7U  ,-?#b1J,-2.46,-?.  72,-2.  17,- 

6- 1.  63,-1.  !>?, -1.7 1,-1  .59,- 1,49, -1.46, 

9-1 • ?4 , -  1. 06 ,  -.90,-1.  0C',  '.91,  -.91, 
I  -.79,  -.42,  -.54,  -.38,  -.42,  -.48, 


-.92,  -.83,  -.76, 

-.65, 

C1C 

IB  10 

—  #09,  — ,C2,  . C  3 , 

.10, 

CIO 

1620 

.62,  .60,  ,63, 

.  4  6  , 

ClC 

1830 

1.06,  1,07  ,  1*02, 

1.01. 

CIO 

1940 

1.52,  1,56  ,  1.59, 

1  .*56, 

C  ID 

1850 

1  .96,  1  .89  ,  1.81, 

1  .45, 

CIO 

I8  60 

1  .  68  ,  1.32  ,  1. 39, 

1.53. 

Cl  D 

1  P  70 

1.61,  1.19,  1.32, 

1.52, 

Cl  D 

1360 

2.10  2.  ,  2.18, 

1.99/ 

CIO 

1890 

C1D 

1900 

1.92,  1.97,  1,69, 

1*91, 

ClD 

1910 

1.27  ,  1.  20,  1,  19, 

1.11, 

CIO 

1920 

.  19,  .  03 ,  -.07, 

-.21, 

CIO 

19  30 

1.24  ,-l  .41  ,-1.57, 

-1.73, 

CIO 

1940 

-2.  99  ,-3.18,-3.37, 

-3.56, 

ClC 

1950 

-6 . 83,-4 .99, -E. 14, 

-5.26, 

C1C 

1960 

-5.0fl,-5,00,-4.68, 

-<♦.26, 

ClD 

1970 

-2.79, -2 .76,-2.63, 

-2.47, 

CIO 

1960 

-2.  12,-2.06  ,-2.07  , 

-2.07, 

ClC 

1990 

-1.59,-1  .63,-1.21, 

-1.  15, 

CIO 

2000 

-.67,  -.91,  ■  .66, 

-.71, 

ClD 

2010 

-.  22,  -.16,  -.  06, 

-.01  , 

Cl  C 

2  020 

.  32  ,  ,62  ,  .  37, 

.23, 

CIO 

2030 

,53,  ,64,  *39, 

.36, 

CIO 

20  40 

.  16  ,  .27  ,  .  36, 

.43, 

CIO 

2060 

1  .  00  ,  1.02,  1  .  13, 

1.06, 

Cl  P 

2060 

1  .  32  ,  1.32  ,  1.37  , 

1.42  , 

ClD 

2070 

1.63,  1  .62  ,  1.62, 

1.70, 

CIO 

2  060 

1.66,  1.49,  1.49, 

1 .52/ 

CIO 

2090 

CIO 

2100 

1.63,  1,71,  1.72, 

1.70, 

CIO 

2110 

1.66,  1,49,  1.42, 

1.36, 

CIO 

2  120 

1.50,  1.72,  1.86, 

1 . 76, 

CIO 

2130 

2.14,  2.04,  2,02, 

2.02, 

ClD 

2140 

1.59,  1.50,  1.3b, 

1.20, 

CIO 

2150 

.02,  .03,  .03, 

.01  , 

ClC 

2160 

-.14,  -.21,  -.06, 

-s  06, 

ClC 

217C 

.36,  ,  28  ,  .42, 

,43, 

CiO 

2180 

.31,  .18,  .06, 

.20, 

ClC 

2190 

.  42  ,  .  38,  .  32, 

•  30, 

CIO 

2200 

-.56,  -.61,  -.48, 

-.23, 

CIO 

2210 

.40  ,  .61  ,  .59  , 

.53, 

ClD 

2220 

.  55  ,  ,.5  0  ,  .  32, 

.26, 

ClD 

2230 

-.  88  ,-1.09, -1.16, 

-1.31, 

ClD 

2240 

-1.97,-1.97,-1.97, 

-2.26, 

ClD 

2250 

-2.49,-2.44  ,-2.36, 

-2.32, 

ClD 

2260 

-2.40  ,-2  .49,-2.48, 

-2.43, 

ClD 

2270 

-2  .89  ,-3.28  ,-3.51, 

-3.74, 

CIO 

2260 

-5.00  ,-5,00  ,-5.  00  , 

-5.00/ 

CIO 

2290 

ClD 

2300 

-5 . 00  ,-  5  .  00  ,-5  .  CO 

-5.00, 

ClD 

2  MO 

-6.00  ,-5.00  ,-5,  00, 

-5,00, 

CIO 

23  20 

-5.00  ,-  5.00  ,-5.00  , 

-5.00, 

ClC 

2  3  30 

-5.00,-5.00,-5,00, 

-5.00, 

ClD 

2  340 

-5.00  ,-5.00  ,-5,00  , 

-5,00, 

CIO 

23  50 

-3  ,56  ,-3  .40  ,-7.21  , 

-3  .  G  6  , 

CIO 

2360 

-2.  03,-1.87,-1,79, 

-1.74, 

ClC 

2370 

-1  .46  ,-l  ,49  ,-l.  49, 

-1.25, 

ClD 

2360 

-1  .01  ,  -.99  ,  -.87, 

-.92, 

ClD 

2390 

-»34,  -.27,  -.17, 

-.20, 

ClC 

2  4  00 
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Listing  of  Fortran  Code  LOWTK.AN  5  (Cont.  ) 


£ 

- 

je, 

- 

2? 

- 

30, 

* 

•  08,  ~ 

.  01 , 

- 

•  ?  0  : 

S 

- 

12, 

- 

02 

- 

02, 

- 

.13,  - 

«  11  r 

- 

.10 

S 

- 

08, 

- 

0  C 

- 

21, 

.'6,  - 

,61, 

- 

.40 

3 

- 

58, 

- 

24 

11, 

*  r  i  , 

•  61 , 

,  79, 

3 

- 

e  o , 

- 

- 

50, 

- 

.39,  - 

.  10  , 

.  09 

£ 

13, 

?? 

35, 

.51, 

,  60  . 

.  51  ■ 

3 

*•  ? , 

*»  i 

43, 

.34, 

.  22? 

.  1  3 1 

3 

- 

hi, 

- 

39 

- 

5^, 

- 

,69,  - 

.  64  , 

- 

•  68 

3 

-1 

■<5, 

-t 

4  9 

-1 

67, 

-1 

•  ^7 , “1 

.51, 

-1 

.56 

DATA  (C 

:  i  ( I ) , 

I  =  ?  25  i  , 

2470)7 

1 

-1 

“•Si 

-1 

40 

-1 

2', , 

-l 

.’8,-1 

.71  » 

-1 

i-3  0 

2 

“1 

1,0, 

-1 

75 

-1 

37, 

-1 

•  ’9,-1 

.41, 

-1 

.49 

3 

-1 

Mi 

-1 

42 

-1 

86, 

-1 

.81,-1 

.31, 

“1 

.  15 

4 

-2 

08  , 

-2 

08 

-2 

22, 

-2 

. ’5,-2 

. 35,-1 

.98 

5 

-1 

70, 

-1 

70 

-1 

66, 

-1 

,»8,-l 

.50, 

-1 

.  56 

6 

-i 

*•8  , 

-1 

c8 

-1 

86, 

-1 

.63,-1 

.  48  , 

-1 

.  4  8 

7 

-2 

on, 

-  7 

1  6 

- 1 

99, 

-2 

.  23,-2 

.04,-2 

•  04 

5 

-3 

79, 

-4 

14 

-4 

89, 

—4 

.86,-5 

•19, 

-2 

.  46 

9 

•  2 

31  i 

-  •> 

1  r> 

_  ^ 

01, 

-1 

.99,-2 

.16, 

-2 

.41, 

3 

-i 

71, 

7  6 

-l 

78, 

-l 

.68,-1 

.  78 ,-l 

.  52 

J 

- 

80, 

-  1 

01 

- 

76, 

- 

.  90  ,  - 

.  qo, 

- 

.90 

3 

- 

68  i 

- 

7  ? 

- 

86, 

- 

.85,  - 

,ei, 

- 

.61 

$ 

- 

61, 

- 

4  1 

- 

29, 

- 

.29,  - 

.  61  , 

- 

,74 

$ 

- 

10, 

20 

20, 

.  02, 

.  20, 

- 

.  01 

$ 

- 

77, 

- 

in 

02, 

.16, 

.  20  , 

0 

.  00 

3 

22, 

u 

11, 

.21  , 

.  09, 

.21 

$ 

08, 

- 

70 

- 

69, 

- 

.69,  - 

.  74, 

- 

.88 

$ 

19, 

2? 

21. 

.  29  , 

.  28, 

♦  29 

<♦ 

80  , 

49 

86  , 

•  4  £i  , 

.  49, 

.  27 

PATA<C1(  I> , 

1=2471, ?560> / 

X 

-1. 

11, 

“1. 

37 

82, 

-J 

.56,-1 

.94  ,< 

“2 

.  16 

Z 

-2. 

00  1 

08 

23, 

-2 

.’1,-2 

.31, 

-2 

.53 

* 

-2. 

38, 

“2* 

74 

»“1« 

91, 

•*1 

. 62  ,-t 

.69,-1 

.56 

4 

-1. 

76, 

-1. 

c4 

*-l. 

98, 

“1 

.80,-1 

.68,' 

-1.69 

f; 

-1. 

-1 . 

44 

t-1  . 

86, 

-1 

.80 ,-t 

.98. 

-1 

..  36 

6 

-1. 

27, 

-1. 

1? 

.-1  . 

18, 

-1 

.’8,-t 

.36, 

“1 

.23 

7 

-1. 

28, 

-1. 

27 

37, 

-1 

.’2,-1 

.32, 

-1 

.22 

ft 

-2. 

k? 

c6 

9  -  2  < 

58, 

-? 

.60,-2 

.  58,-2 

•  4T 

9 

-1. 

23, 

-1. 

10 

i“l. 

’3, 

-1 

.10,  - 

.S3, 

- 

.90 

3 

—  • 

97, 

-  . 

91 

i  "  • 

92, 

-1 

.13,-1 

.24,-1 

.50 

$ 

-3. 

91, 

-4. 

20 

,•  -4  , 

85, 

-4 

.’8,-5 

.  Of 

-5 

.07 

ClLsri <L) 

RETURN 

END 


,  06, 

.10, 

06, 

16, 

CIO 

- 

.06, 

- 

.05, 

- 

06 

- 

1  0, 

cm 

- 

♦  31 , 

- 

.82, 

- 

58 

- 

57, 

CIO 

.62, 

.26, 

- 

31 

- 

67, 

Cl  c 

.  C*'  , 

.  08, 

16, 

21, 

Cl  c 

.51  , 

.80  , 

80 

83, 

Clf 

- 

•  11, 

- 

.31, 

- 

31, 

- 

81, 

CIO 

-1 

. 01, *1 

.10, 

"I 

19, 

-1 

29, 

CIO 

-1 

.60, 

-1 

.69, 

-1 

83 

-  1 

51/ 

Cl  D 

CIO 

-  1 

.30,- 

-1 

.26  , 

-1 

39 

"I 

33, 

CIO 

-1 

.48,-1 

.56, 

-1 

87, 

-1 

66, 

CIO 

-1 

.  13, 

-1 

.20  , 

-1 

81 

-1 

88, 

C1C 

-1 

.92,- 

•1 

.78, 

-1 

57 

-1 

69, 

C1C 

-1 

.  82, 

-1 

.29, 

-1 

38, 

“I 

28, 

CIO 

-1 

.54  , 

•1 

.  58, 

“I 

69, 

-1 

79, 

CIO 

-  2 

39,- 

-2 

.78  , 

09 

-3 

44  , 

CIO 

-2 

.26,- 

-1 

.  59  , 

-2 

01, 

-2 

18, 

CIO 

-? 

.12, 

-1 

.99, 

-1 

86, 

-1 

79, 

CIO 

-1 

.  36  ,- 

■1 

.29 

-1 

22 

- 

91, 

CIO 

-1 

.19, 

-1 

.  00  , 

- 

79 

- 

66  , 

CIO 

- 

.68  , 

- 

.51 

- 

92, 

- 

83, 

CIO 

- 

.  19  , 

- 

.18, 

0 

00 

19, 

CIO 

.  18, 

.28, 

It 

0 

00  , 

CIO 

.  09-, 

.  09  , 

09, 

07, 

;io 

.  20  , 

.37, 

28, 

.07, 

OlO 

-1 

.01  , 

- 

.86, 

- 

'6 

- 

.19, 

CIO 

.52, 

.58, 

51, 

60, 

etc 

.  06  , 

- 

.  33 

- 

81 

-1 

1  7/ 

‘T  C 

C1D 

-  c 

.06,-2 

.16, 

-l 

56, 

-2 

oo, 

CIO 

-2 

.31,-2 

.31, 

-2 

31 

-2 

■  28, 

C1D 

-l 

.86  ,-l 

.91 

-1 

75 

-1 

.8  3, 

C  10 

- 1 

.  56,-1 

.  61)  , 

-1 

71, 

-1 

.36, 

C  ID 

-1 

*66, 

-I 

.  69 

-1 

•5 

-1 

.39, 

Ci  c 

-1 

.23, 

-1 

.37, 

-1 

30, 

-l 

.80, 

CIO 

-1 

,  23 i-l 

.38  , 

-1 

69, 

-2 

07, 

CIO 

-l 

. 88,-1 

.60  , 

-l 

26, 

-1 

.16, 

etc 

- 

.60, 

- 

.80, 

- 

94 

- 

97, 

CIO 

- 1 

.89  »“ 2 

.18, 

-2 

32, 

-  2 

63, 

Cl  D 

-  5 

.07, 

-5 

.07, 

-5 

07 

-5 

.07/ 

CIO 

ClC 

CIO 

ClC 

2410 
2  4  20 
24’0 
2440 
2  450 
2460 
2470 
2  4  f  0 
2450 
2500 
2510 
2f  20 
2  5  30 
2540 
2  5  50 
25C0 
2570 
2  5  50 
25?0 
2600 
2610 
26  20 
2  6  3U 
2640 
2650 

26  CO 
2  6  70 

26eo 

2690 

27  00 
2710 
2720 
2  7  30 
2740 
2750 
2760 
27  70 
2750 
2790 
260C 
2610 
2620 
26  30 
26  40 


200 


Table  Al.  Listing  of  Fortran  Code  LOWTRAN  5  (Coni.) 


c 

c 

c 

c 

c 


SUBROUTINE  C?CTA  f  r  ?  L  •  L  ) 
UNIFORMLY  *IXEO  3  A SF s 


503 
0070 
12950 
1  3?45 


CM-1 

CM-  1 
CM-1 
CM-1 


2  •  *1 ,  2.17,  2.01, 
.23,  -.17,  -.53 


C?  LOCATION  1  V  r 
Cc’  LOCaTION  151  s  V  = 

C2  LOCATION  1515  v  = 

C2  LOCATION  15*5  v  = 

COMMON/C?/  f?tl575) 

OATA1C?  ( I)  ,  1=  1,  190)/ 

1 -A. 25,-3. 70 ,-3*? 0,-2. 75,-1 . 90,-1.73, 

2  -.71,  -.51,  -.30,  -.36,  .22,  .49, 

3  1.76,  1.91,  ?.P0,  2.23,  2.36,  2.51, 

4  3.56,  3.60,  3.7a,  J.6e,  3.66,  3.56, 

5  2.  6,  2.73,  2.5?, 

6  1.21,  .9?,  .53, 

7 -1.0 0,-1. 10, -1.4 2,-1. 61,-J  .66,-2,  10,- 
0-3.14,-5.rP,-c.OO, -5. 30,-5. CO, -5. 00,  ■ 
9-5.  00,-2,  60,-2.47,-2.19,-1.97  ,  -1 . 7 1 ,« 
$-1. 09,-1. 11  ,-1.1 9,-1. 09,-1. 01, -1. 01, • 
$-2.51,-2.67,-2.71, -2 .39, -2. 09 , -1 • 7  B , ■ 
$  -.96,  -.91,  -.90,  -.07,  -.60,  -.79, 
$-2.11 ,-2«74,-,.0Q,  -3*50, -3. 03, “2. 5  8,* 
$-1.13,-1.11  ,-  1. 16,-1. 20,-1. 23  , -1.21," 
$-1. 20,-1. 17,-1,02.  -."9,  -.68,  -.42, 

$  .57,  ,77,  .96,  1.07,  1.13,  1.11, 

$  1.44,  1,40,  1.13,  .09,  .63,  .54, 

$  ,02,  •  6  P  ,  .4*,  .14,  -.12,  -.48, 

$-2*81, -5. 00,-5,00,  -  5. 00, -3, 14,-2.47,' 

DATA (C?(I> ,  1=  191,  3  P0  )  / 


1 

-1. 

f  9» 

-1 

0  ? 

- 1 

87,-1 . 90  , 

-1 

.O'., 

2 

-2. 

71 

.  7 

P  5 

-  T 

.09, 

-3.99, 

-2 

.<•3, 

3 

-1  . 

70, 

-2 

01 

-? 

.41,-3.64, 

-? 

,63, 

4 

-1* 

94, 

-1 

83 

-1 

.76, 

-1. 71, 

-1 

.70  , 

5 

.,f 

61 

-  3 

21 

-4 

.01, 

-5.00, 

-5 

.  00, 

6 

-5 

00, 

-5 

00 

_  c 

.90, 

-5.no. 

-5 

.00, 

7 

-5. 

00 

-5 

00 

_  c 

.00, 

-5.00, 

-5 

.  00, 

0 

-i. 

00, 

-5 

r0 

_  c 

.0% 

-5.^0, 

-5 

.  00  , 

9 

-2. 

0?, 

-2 

71 

-  r 

.67, 

-2.67, 

-2 

,66, 

$ 

-  , 

97, 

- 

*6 

- 

.43, 

-.^9p 

- 

.60, 

$ 

-1  . 

53. 

-1 

07 

-1 

.91, 

-1  .Q  3 , 

-7 

.  03, 

S 

-3. 

09 

-  9 

O ;» 

_  7 

.75, 

-2.39, 

-2 

.  01, 

$ 

0. 

00, 

08 

■  11, 

.12, 

.13. 

z 

51, 

- 

53 

- 

.57, 

-'.60, 

- 

.61, 

$ 

-  • 

91, 

- 

68 

- 

.41, 

-.39. 

•  If 

$ 

1 

51, 

1 

58 

1 

.60, 

1 .  n  ♦ 

1 

.8  , 

$ 

2. 

61, 

7 

*0 

2 

.9  1, 

2.09, 

2 

.96, 

$ 

3. 

7?. 

3 

°0 

4 

.  n  3, 

4  *  ?2  , 

4 

.  ‘•3, 

i 

4, 

7?, 

4 

78 

4 

.79, 

4  t  6  0  , 

3 

,6J, 

DATA (C?< 

; , 

= 

381, 

5  70  )/ 

1 

6?, 

- 

?L 

-1 

,69, 

-2.18, 

_? 

,  01 , 

2 

-1 

12, 

-i 

18 

-1 

'*5,-1,  26, 

-1 

30, 

3 

-2 

16 

-  ? 

30 

-? 

.’S 

-2.01, 

-1 

.71, 

4 

- 

4  5 

- 

47 

- 

.49, 

-.46, 

* 

.  77, 

5 

-1 

43, 

-2 

PI 

_  7 

.60, 

-2.89, 

_  9 

.  67  , 

6 

_  ~3 

4C 

40 

*  " 

,40  , 

-2.49, 

-2 

•  93, 

7 

•2 

82, 

—  L 

67 

-? 

.03, 

-2  •  ?2 1 

_? 

.79, 

0 

-2 

26, 

_  p 

?3 

-  c 

.20, 

-C . "9# 

.  ■» 

.  C3, 

9 

-1 

67 

“I 

63 

-1 

.79, 

-1.73. 

-1 

.  66, 

t 

-1 

70, 

-1 

M 

-1 

.*0, 

-1.37, 

-1 

•  31 , 

i 

- 

30, 

- 

19 

- 

.0°, 

-  .  04, 

.  03, 

$ 

27, 

26 

.2  4, 

.  ’2, 

.17, 

.07, 
-.73, 
.41 , 
1.51, 
3.  04, 
4.61  , 
3.23  , 


1.51 

.76 

2.72 

3.73 
1  .89 
-.74 
2.  29 
5.00 
1.50 
1.11 
1  .69 
-.86 
2.23 

1  .17 

-  .24 
1  .  06 

•  65 
-.92 
-2 . 00 

-2.10 
-1.  69 
-2 .36 
-1  ,81 
-5.00 
-5.00 
-5.00 
-4 . 30 
-2.33 
-.89 
-2 . 40 
-1.  36 
.01 

-  ,  81 
.  76 

2.  02 
3.14 
4.71 

2  *  79 


‘1.  36, 
-.31, 
-2.74, 


1.79,-1.53 
1*17, -1. 20 
1 .  06 
-  .  34 

2.51 

*47,-2. 46 
.71, -2.66 
.96 , -1  .88 
,  64,-1.  >9 
.00,  -.83 
.10,  .16 
.12,  .07 


■1.29 
1  .  08 
2.90 

3.50 
1.77 
-.01 

2. 51 
■5.00 
•1. 32 
■1 .33 
■1  .  33 
*1  .  0* 
1  .  89 
■1 .12 

-.01 
1 . 15 
.78 
■1.43 
■1  .71 

‘2.23 
•1. 42 
‘2.27 
■1  .92 
■5.00 
*5. CO 
■5.00 
■3  .42 
‘2.01 
-.87 
■2.00 
-.59 
-.08 
-.95 


•1,3? 
■1 .32 
-  .01 
-.49 
■2  .42 
■2.63 
■2.49 
■1  .04 
•1  ,74 

-  .69 
.  18 

-  .  01 


-Will 

-.91, 

1.29, 

1.56, 

3.12, 

3.37, 

3.  30, 

3.  17, 

1.63, 

1.47, 

-.84  , 

-.88, 

-3.72  . 

-2.91, 

-5. CC, 

-5.00, 

-1.31, 

-1.13, 

-1.66, 

-2.13, 

-1.18, 

-1.01, 

-1.20  , 

-1.69, 

-1. 54, 

-1.28, 

-1. 15, 

-1.19, 

.IS, 

.40, 

1.37, 

1.33, 

•  El, 

•  66, 

-1.  69 

-2.32, 

-1.99, 

-1.61/ 

-r. 32, 

-2.46  , 

-■*•3  6, 

-1.49, 

-2.16, 

-2.05, 

-3.CI, 

-2.27, 

-5.00, 

-5.90, 

-5. CO, 

-5.  on, 

-5.00. 

-s. 00, 

-3.17, 

-2.96, 

-1.64, 

-1.32, 

-1.  08, 

-1.26, 

-3, 08, 

-  3. 11, 

-.63, 

-.26, 

-.23, 

-.40  , 

-1.05, 

-1.02, 

1.16, 

1 . 39, 

2.32, 

2.50  , 

3.41  , 

3.55, 

4.65, 

4.63, 

1.66, 

1.35/ 

-1.20, 

-1.15, 

-1.54, 

-1.04, 

-.  61 

-.45, 

-.75, 

-1.11, 

-2.30, 

-2. 39, 

-2.  60, 

-2.74, 

-2.40, 

32, 

-1.86, 

-1 .8  6. 

-1.79 

-1.67, 

-.53 

-.41  T 

.  23, 

.  2  0, 

07, 

-.09, 

C20 

10 

C?D 

20 

C2D 

30 

C2C 

40 

C20 

50 

C20 

eo 

C  2  0 

70 

C2  r 

80 

C20 

on 

C2C 

100 

C  2  0 

1 1 0 

C20 

120 

C20 

130 

C20 

140 

020 

150 

C20 

160 

C  2  0 

1  7  C 

C2C 

180 

CCD 

1  =  0 

C2C 

200 

C2C 

210 

C  2  0 

220 

C  2D 

230 

C  2D 

240 

C2D 

2  r,0 

C2C 

260 

C  2D 

270 

C  20 

280 

C  2  D 

290 

C2C 

300 

C2D 

310 

C  2D 

3  20 

C2C 

330 

C?C 

340 

r  ?n 

.1C0 

C2C 

3  60 

C  2D 

370 

C2D 

380 

C2D 

3  90 

C  2  C 

400 

C  2D 

410 

C  2D 

420 

C  20 

430 

C20 

440 

C2  0 

450 

C20 

460 

C  2D 

4  70 

C  2D 

4  P  0 

C  20 

490 

C  2  0 

5  00 

C  2  C 

510 

C2D 

520 

C2D 

530 

C2C 

540 

C  2D 

550 

C2C 

*  to 

C2C 

5  7  C 

C2  C 

5  8  0 

C2  0 

590 

C  20 

600 

201 


202 


Table 


$-5.  00,-5. 00 

$-5.00,-6.00 
$-5. oo,-*. no 

S-3.73,-%  59 
t-2.51  ,-?,?7 
$-?.?7,-’.59 
$-3. 31,-3. J  a 
PATA(C’<T> , 
i-i. oe,  - . f 9 
2  -.06*-l. ’7 

3-2.  5,’,-2.  ?1 
5  -.67,  -.67 

5- 4.  57,-4.  f'Z 

6- 4. 93, *4. 46 

7- ?  ,  16,-2.  13 

8- 3.  22,-3.29 

9- 5.  00,-5.  00 
$-4.91, -4.42 
$-3.36,-3.62 
$-2.5?,-?. i 6 
$-2.47, -2.91 
$-4.  16,-3.  89, 
$-1. 57,-1. 38 
$  -.04,  -.04 
$-2.70,-3.71 
$-5 . 00,-6.00 
$-5. 00, -c. 00 

DATA  <C?(I> , 

1- 5*00,-5.00 

2- 5.00,-5,00 

3- 5.00,-5.00 

4- 5. 00  ,-5,00 

5- 5. no, -5, 00 

6- 5  .  U0,-5.  J.0 

7- 3.23,-3.25 

8- 4. 66, -5. ^0 

9- 3.73,-3,48 
<-?• 4?, -2. 38 
$-5.00  ,-5.00 
$-4.21  ,-3.90 
$-3,  34,-3.  47 
*-5.00,-5,00 
$-4  ,51  *  -4  cl  0 
$-1. 29,-1 .0? 
$-1.57,-1.66 
$-2.97, -’MO 

$-4.7l,-4.8(j 

D AT  A ( C? (  I)  , 

1-3. 24,-2, *9 

2  46,  3’ 

3  .85,  . °6 

4  ,97,  1,13 

5  61  ,-1.57 

c,-5 .  or, -5.  ro 
C2L=C2(L) 
RETURN 
END 


Al»  Listing  of  Fortran  Code  LOWM  tAN  f>  (Cunt.) 


-5,0C, -6. 0(),-5,i0, 

-5.  00  ,-5.  00  ,- 5  .00 

-5.00 

5. no, 

C  2D 

12  10 

-c.nn,-5.  0(1  «-5.  oo  , 

-5. 00,-6, 00,-5.00 

-5.00 

,-5.00, 

C  2D 

12  20 

-4.91, -4. 79,-4, 61 , 

-4.45, -4. 40  ? - 4 .29 

-4.17 

,-3.90, 

C  20 

12  20 

-3.62, -3. 72,-3. 73, 

-3.69,-3.31,-3.12 

-2.61 

C  20 

1240 

-2.16, -2.1 1,-2. ?fl. 

-2. 29, -2. 21,-2. 06 

-1*51 

,-1.99, 

C2D 

1260 

.35,-3. f~9, 

-  3.  79,-  3.  68  ,-  3.53 

-3.  46 

,-3.39, 

C20 

1260 

-2. 9  7,  -2.69,-2.39, 

-2.  11,-1 .83,-1 .58 

-1,49 

,-1.22/ 

C  2D 

1270 

“114  1, 1330)  / 

C  ?i' 

12  £  0 

-.68,  - . 64,  - . 71 , 

-.79,  -.70,  -.66 

49 

,  -.54, 

CcO 

1290 

- 0  6 , -2.  44,-3,  46, 

-3.  72,-  3,  74,-3.  59 

-3.  22 

,-2.98, 

C2C 

1300 

-1.64,  -1  ,  34  ,-l  .  08  , 

-.86,  -.72,  - .  ei 

-.7  0 

,  -.22, 

C2D 

1310 

-.38,  -.51,  -.97, 

-1. 36,-1 .69,-2 .74 

-  3  «  1  8 

,-9.21, 

C  2D 

1320 

-4.76, -4 .67,-5, 00 , 

-5.  t)  0  ,  -  5  .  09,-5.  CO 

-5.  OS 

,-5.00, 

C2C 

13  20 

-2.99, -3.45,-2.99  , 

-2.(3, -2.  30,-?.  09 

-2,02 

,-2.)2, 

C2C 

1340 

-2. 04, -1. *6, -1.83, 

-2. 08,-2, 78,-2.81 

-3,  01 

,-3.lS, 

^2D 

1350 

-*3.66,  -3.  “9  ,-4.46, 

-4.80 , -5, 0  0,-5.  CO 

-6,  CO 

,-5.00, 

C20 

1  260 

-5.00, -5, 00,-5. 00, 

-5. 00,-5. 00,-5.00 

-5.00 

.-5.00, 

C  2D 

13  70 

-4,11,  -3,69, -3.  09  , 

-2, 99, -2.91, -2.69 

-3.  19 

,-3.?0, 

C20 

1  380 

-3.69, -3 .a  2  ,  -3 • 73, 

-3.53, -3. 77,-3.19 

C2 

,-2.29, 

C20 

1  360 

-2.24, -2.19, -2. 32, 

-2. 41,-2.  29,-2. 06 

-2.  00 

,-2.18, 

C2C 

14  00 

-3.57,  -4.  ‘'9,-5  .  00  , 

-5. 00  ,-6. 00  ,-5. 00 

—  6  i  00 

,-4,61, 

C2D 

1410 

-3.57,  -3 , 30  ,-3  .  02, 

-2,T4,-2.51 ,-2.20 

-1.98 

,-1.13, 

C2D 

1  4  2  C 

-1.21, -1.11,  - . 98 , 

-.87,  -.78,  -.60 

-.  ?7 

-.18, 

C2D 

1430 

-.06,  - , 16,  - . 16 , 

-.19,  -.23,  -.45 

-1  .  02 

,-1.92, 

C20 

1440 

-4.01, —4 .20,-4, 35, 

-4. 58,-4.  73,-4. 01 

-6,  00 

,-5.00  , 

c?  c 

1  450 

-6.00, -5, no ,-5 ♦ 00 , 

-5,  00  ,-5 . 00  ,-5.00 

-6.00 

,-5.00, 

C2D 

14  60 

-6.00, -5 . 00  ,-5 . 00  , 

-5.00  ,-6.00  ,-5.00 

-5.00 

,-5.00/ 

C  2D 

1470 

=  1331, 15  ?n) / 

C  20 

1400 

00,-6. 00 ,-5, CO  , 

-5.00  ,-5.00  ,-5.00 

-5.00 

,-5,00, 

C20 

1490 

-5,  00,  -%  00,-5.  CO  , 

-5.00,-5.00  ,-5.00 

-5.0  0 

,-5.00  , 

C  2  0 

1  5  uO 

-5,00,  -5.  no, -5 . 00  , 

-5. 00  ,-5  .  00  ,-5.00 

-5.  00 

,-5.00, 

C2C 

15  10 

-5,0D,-5. 00 ,-5, 00 , 

-5, 00, -5. 00  ,-5 .00 

-5.00 

,-5.00, 

C  2D 

1  c20 

-P.0  0, -6  .  00  ,-6. 00  , 

-5.00  ,-5.00  ,-5.00 

-5,00 

,-5.00, 

C  20 

1520 

-P.00, -4, 71, -4, 71, 

-3,59,-3.68,-3.50 

-3.  34 

>“3.22, 

C2C 

1540 

-3.24, -3,10,-3.10, 

-3*07, -3. 18,-3*41 

-3.6  7 

,-4.12, 

C  2  D 

1550 

-p.0Q,-k,90 ,-5 ,C0 i 

-5.00,-5.00,-5.00 

-4,51 

,-4.18. 

C  20 

1560 

-3.17,-?. 96,-2. 73, 

-2.63, -2. 58, -2. 59 

-2.57 

,'•2,4°, 

CSC 

1570 

-2.4C, -?  .62,-3 . 02, 

-3.49,-4.16,-5.00 

-6*  OO 

, -5.ro, 

c?o 

1500 

-p.OQi -5. 00,-5. 00, 

-5. Cj,- 5. 00,-5.00 

-4.87 

,-4.60, 

C20 

1590 

-1.66,-?. 56,-3,61, 

-3. 51, -3. 51 .-3  .49 

-3.41 

,-3.34, 

C  20 

1600 

—  7.60,—  ,  —  4.23, 

-4.69,-5.00  ,-S  .00 

-5.00 

,-5.00, 

C2D 

ieiG 

-5.0  0, -6 .00  ,-6 , 00  , 

-5.00,-5.00  ,-  5  •  0  0 

-5.P8 

,-4.93, 

C20 

1620 

-3.70,-3.72,-3.03, 

-2.74,  -2. 43, -2 .08 

-1.83 

,-1.59, 

C2C 

1630 

-.01,  -.*0,  - .73 

-.90  ,-1.08  ,-  1.19 

-1.35 

,-1.42, 

C2C 

1640 

-1.80,-1.91,-2.04, 

-2.18,-2.33  , - 2 .47 

-2.61 

,-2.28, 

C  2D 

1650 

-3.28, -3 .44,-3 .63, 

-3. 81, -3. 98, -4  .15 

-4,3  2 

,  -  4  »  b  1  , 

C  20 

1660 

-^.00,-6.00,-6.00, 

-5,00  ,-5,00  ,-  5.00 

-5.00 

,-4.82/ 

C  2D 

1670 

1=15?!,  1675)  / 

C2P 

1600 

12,-1 .82,-1 .57, 

-1. 34,-1 .16,-1 .02 

-.02 

,  -.64, 

C2D 

1690 

-.1'*,  -.0  6,  •  C 0  , 

.21,  .39,  .52 

.61 

,  .12, 

C  2  0 

1700 

1.22,  1.12,  1.18, 

1 . ? 1 ,  1.17,  1,08 

.58 

,  .90, 

C2C 

1710 

1.17,  1.58,  1.74, 

1.7  0,  1  .  46  ,  1  .  13 

.  73 

,  .22, 

C  2  0 

1720 

-3,46, -5.00,-6.00, 

-6.00  ,-5.00  ,-5 .00 

-*•  DC 

,  -  5.  00, 

C20 

1730 

00, • U0 ,-5 • 00/ 

C  2D 

1740 

C?D 

1750 

C20 

1760 

C  2D 

17  7  0 

Table  Al,  Listing  of  Fortran  Code  LOVVTKAN  5  (Cont. ) 


SUBROUT  INF  c 

Trin  <ru»l> 

C  3  0 

10 

070Nr 

C  30 

20 

C3  LOCATION 

1 

V  =  575  CM-  1 

C3C 

10 

C3  LCPflTICN 

610 

Vs  327  0  CM-1 

C  30 

40 

CONM0N  /C?/ 

07(540) 

C  30 

50 

OflTMCMIM 

=  i» 

l^)  / 

C3  C 

60 

1-*..  15, -1.F1  , 

-7.00, 

-2 . c4 , -7 . 12,-1. 76,-1 

,  60  ,-i  .  21  ,  -.86,  -.49, 

C30 

70 

2  -.10, 

.07, 

.12,  .24,  .32, 

143,  .52,  .58,  .65, 

C  30 

CO 

3  .72,  .79, 

.76, 

.7?,  ,  66  ,  ,  6  4, 

.66,  .79,  .83,  .83, 

C  3  0 

90 

4  .80,  .78, 

.60, 

,c6,  *  4,9 ,  .42, 

.34,  .26,  .14,  .02, 

C3r 

1  00 

5  -.14,  -.35, 

-,61, 

- , 74,  - ,86 , -1#  17, -1 

.  40f-  1  .  58,-  2.  11  ,-2.47, 

C  3  0 

110 

6-2,  03,-T.74, 

-3.59, 

-1,94 ,-9 . 00 , -5. 00,-5 

.00 ,-6.00 ,-5.00,-5.00, 

C  30 

120 

7-5, 00, -5. GO , 

-6.00, 

-5, 03,-5, DO , -4. 46,-4 

.  00 ,-J  ,50 ,-3. 14,-2, 70, 

C  3  0 

1  ?0 

fi -?• 41 » • 10  , 

-1  •  7f , 

-1 .49,-1. 70,  20, 

.15,  .35,  ,78, 

C3  C 

140 

9  .95,  1.70, 

1  .UC, 

1 .65 ,  1,60,  1.97,  2 

.10,  2.21,  2.21,  2.78, 

C  3  p 

150 

$  2.40,  7.  4?, 

7.68, 

2,52,  2, 20  ,  2,48,  2 

.54  ,  2  .45  ,  2.70,  7.00, 

C  30 

ItO 

$  1.20,  .95, 

.92, 

,°0,  .90,  ,89, 

.60,  .62,  ,64,  .95, 

C3C 

5  70 

$  .96,  ,95, 

.90, 

,  *  0  ,  .68,  ,58, 

.  40  ,  .30  ,  .  19  ,  .08  , 

C  30 

180 

$  -.07,  11 , 

-.72. 

".tit  -.56,  -#T1,  - 

.89,-1  .03,-1  .13,-1 .33, 

C  30 

190 

$-1, 60 ,-l  .  76  , 

-l.°C, 

-7, 02, -2 . 21 , -2. 46,-2 

.59,-2.79,-3.00,-1.22, 

C  30 

200 

S-3,61 ,  -4 .1  6  , 

-5.00, 

••5.00  , -5  .  00  ,-5, 00,-5 

.  00  ,-  5.00  ,-6.00  ,-  5  •  0  U  , 

CSC 

210 

S-5.0C ,-K, 00, 

-6.0  0, 

-5. 00, -5. 00, -5. 00, -5 

•  00,-5.00.  —  6.00,-5.00* 

C3C 

220 

$ -5. 00, -5. 00, 

-6.00, 

-5.  00  ,-6.  00  ,-5 • 00,-5 

.00 ,-5 .0J ,-5.00,-5.00, 

C  3  0 

230 

$-5,00,-5.00  , 

-c,0  D, 

-6,00  ,  -  5  •  00  ,—5.00, -5 

.00  ,-5 .00  ,-6.  00,-5.00* 

C  30 

240 

$-5,00,-r>.oo. 

-6.00, 

-6,00, -6 . 00 ,-5. 00,-6 

,00 ,-5 .00, -6. CO, -5. 00/ 

C  3  O 

250 

OfiTMC*  <  I)  ,  I 

=  191, 

38  0  )/ 

CSC 

260 

1-5, 00,-5. : C, 

-c.f  0, 

-5,  '  U  ,-7.(0  ,-5.00, -5 

. CO , -5 .00,-5.00,-5.00, 

C3C 

2  7  C 

2-5 , 00,-5.00 , 

-c. 00, 

-5, 00, -4.  16,-3.91, -3 

,  66,-3  .41  ,-3.06,-2.69, 

C  3  C 

280 

1-2.44  1<? , 

-2.C3, 

-1 ."6,-1 . 71,-1. 56,-1 

.48,-1 .39,-1.26,-1.13, 

C  3  O 

250 

4  -,97,  - , 8 1  , 

-.oS 

-.48,  - •  35  ,  22,  - 

.14,  -.06.  -.02,  -.19, 

C  3D 

300 

5  .IP,  -.14, 

.06, 

.26,  - ,  0  7  ,  — .42,  - 

.80,  -.02,  -.80,  -.74, 

C  3D 

310 

6  -,74,  - . 70 , 

-.84, 

- • ?  9 ,  -.85,  -.81,  - 

.76 ,  - .70  -. 68 ,  -.64, 

C  3D 

320 

7  -•  6*  ,  66  , 

-.7?, 

-.78  ,  - ,  84  ,  90,-1 

.  J2, -1.14,  — 1.24,-1.33, 

C  3  C 

330 

8-1.47,-1,61  , 

-1.77, 

-1.97, -1.98, -7. 04,-* 

.08  ,-2.09  ,-?.  06  ,-  2.03  , 

C3U 

I4fl 

9-1 • 96 ,- l. 9  5  , 

-i.tr. 

-1. 87,-1. 76,-l,7ir-l 

.66,-1 .59,-1.51,-1.44, 

C  30 

250 

$-1 . 36,-1.28, 

-1.18, 

-i  *  0  8,  -.  98  ,  -.  88  ,  - 

.  78  ,  -.69,  -.  59,  - • 4  9  f 

C  3  C 

360 

*  -.37,  -.75, 

-.18, 

“•10,  0.00,  .16, 

.27,  *38,  .57,  .’5, 

C  30 

370 

$  .93,  1.11, 

1.70, 

t .  3 3  ,  1.44,  1.46,  1 

-40,  1  .48  ,  1.64,  1,48, 

C  3D 

380 

;  1.49,  1.  77, 

.66, 

,  *8,  -.33,  -.71,  - 

.  66  ,  -.  48  ,  -.  49,  -.4'  , 

C  30 

390 

S  -.40 ,  -.40, 

•  .46, 

-.43,  -.64,  -.76,  - 

.89,-1.01,-1,14,-1.26, 

C  3  0 

400 

$-1.40,-1.55  , 

-1.69. 

-1.83, -l.°fl, -2#  13,-2 

.  20  ,-2.43, -2.  64,-2. 86, 

C  3  C 

410 

$-3.07,-3.78, 

-3.50, 

-3. 72,-3. 94,-5. 00, -5 

.  0  0  ,-5.00  , -5,  00,-5.00, 

C  30 

420 

$-5. 00. -5. OP, 

-5.00, 

-6, 00. -5. no, -5. 00, -6 

.  00,-5. 00,-5,  00,-5.0  0* 

C  30 

430 

$-5.00,-5.00  , 

-c.oo. 

-6. DO ,-6. 00, -5. 00, -5 

•  00, -5.00, -5.  00,-5.00, 

C  30 

4  4Q 

$-5.00,-5.00, 

-6,00, 

-5.  no, -5,  0U  ,-*■•,  0  0,-5 

.  00  ,-5. 00  , -5.  00, -  6.  00/ 

CSC 

450 

DATA  <C 3 (T) , I 

“  38  1, 

640)  / 

C  3  C 

460 

1-5.  00,-5.  CO, 

-5.  C  0 , 

-5,  rc ,-5  .00  , -5 . 0  0  , -5 

.  CO, -5. 00,-5. CO, -5, 00, 

C  30 

4  70 

2-5, 00 , -5. 00 , 

-6, 00, 

-  6.  (jo  ,-5,  00  ,-5.00  ,  -5 

.00  ,-5 .00, -5,  00,  -6.  0  0, 

C  30 

400 

3-5.00, -5.00, 

-c.oo, 

-5. v 0,-5* CD ,-5. CO, -5 

•  no, -5. 00, -.’.00  , -5. 0  0, 

c  3  r 

Lf’O 

4-5, 0  0,-5. C  C  , 

-5,:o, 

-4, 16,-3. 97,-3. 77,-3 

.58,  3.30,-3.07,-2.75, 

C  ?D 

5  00 

5-2. 44, -7, 12, 

-1.86, 

-l. 67,-1. 30,-1.07,  - 

•96,  -.94,  -.89,  -.85, 

C  3D 

c  10 

6  81 ,  -.77, 

-.72, 

-.68,  -.63,  -.58,  - 

.53,  -.40,  -.41,  -.34, 

C  30 

520 

7  “5  26;  -* 19, 

1  7, 

- •  1 8 ,  - ♦ 1 9 »  — .46,  — 

•  79, -i. 12,-1, 45,-1.  75, 

C  30 

530 

8-2.38,-7,07  , 

-’.57, 

-4. 16,-5. 00  ,  -  5 • 

*  00  ,-4. 16,-3, 50,-3.63, 

C  3  C 

540 

9-3.  3  7  10  , 

-7.79, 

-7.47,-?.  16,-1.04,  -i 

.73, -1.63 i-l. *2, -1,41, 

C3D 

550 

$-1.  37,-1.  76, 

-1.17, 

-1.  09,-1.  02,  -.  96,  - 

.  89  ,  -.82  ,  73,  -.68 , 

C  3D 

560 

$  -.54,  4-1, 

-.’7, 

—  *  1 2 ,  .03,  .18, 

.25,  .31,  .39,  .47, 

C  30 

570 

$  .48,  .40, 

,60, 

•  ^0  ,  ♦ 48 ,  .46, 

•23,  .01,  —.11,  -.33, 

C  3D 

5  00 

$  -.56,  -.77, 

-.8  *, 

"."P,  -.94,  -.52,  - 

.91 ,  - *90 ,  -.85,  -. 80, 

C3C 

5  50 

$  -.76 ,  -.71, 

-.60, 

-  .  6  7 ,  -.66,  — .66,  — 

.65,  -.66,  -.67,  -.68, 

C  3  0 

6  00 

$  '.70,  -.77, 

-.S’, 

-.9j,-i, nj,-i. 14,-1 

.  74  ,-l  ,  3  ,-1,51,-1.68, 

C30 

61G 

$-2.13, -2.  r’7, 

-7.97, 

?6,*  5 . 71 , -4, 16,-4 

. 00 ,-5.00 , -5 . 00,-5.00/ 

C  30 

6  20 

C3L^C  ML) 

C  3D 

6  30 

RETUPN 

CIO 

6  4  C 

e  no 

C30 

65C 

04 


Table  At.  Listing  of  Fortran  Code  LOWTHAN  5  (Cunt.) 


SU3K0UT I Nt 

C4  CTA 

C  4  O 

10 

COMMON  /c<*c 

5Cf/  rt.  U  33), CS  ( 19  J 

,  ca i ij2> 

C  40 

20 

c 

N?  CONTINUUM 

C  4  D 

20 

c 

C4  LOCATION 

1  v  s  20*  0  CM 

-l 

c  4  n 

40 

c 

C4  LOCATION 

133  V  =  274  0  CM 

-l 

C4D 

50 

OAT  A  (C4<I)  , 

I*  1,  114)/ 

C40 

60 

1 

2.9TF-04, 

?•  86F-0  4,  9.C9E-04, 

f„56E-04,  8. 856-04, 

1.06E-03 , 

C  4  0 

70 

2 

1.31E-03* 

1.73E-P3,  T.27E-C3, 

2.73E-C3.  3.3EE-C4, 

3.95E-03, 

C4C 

«0 

3 

9.46F-03, 

7*  1 9F - J  3 ,  9.00F-\J3, 

1.13E-02,  1.36E-02, 

WF6E-02, 

C40 

90 

4 

1.96E-02, 

2.16F-02,  2.36E-02, 

2.63E-02,  2.9CE-02, 

2.15E-02, 

C  4  C 

100 

5 

3.4QE-^2, 

3*  fcf -Or,  3.92C-P2, 

4.26E-02,  4,606-02, 

4.95E-0Z, 

C4D 

110 

6 

5.30E-0Z, 

5.69F-02,  6«>00E-(]2, 

6.30E-02,  6.6CF-02, 

t.«9E-02, 

C40 

120 

7 

7  •  10E-O2, 

7.*«»F-02t  7. 601-02, 

7.04E-02,  9. 00 E- 02, 

0.39E-02, 

C4D 

130 

a 

a,?oE-o?» 

S.l't-r?,  9.56--D2, 

1.38E-01*  I.eOE-OX, 

1.36E-01 , 

C4D 

140 

9 

1.52E-01, 

l.bOf-01*  1.69E-01, 

l.tOE-Ol,  1.51E-01, 

1.37E-Q1, 

C  4  D 

150 

S 

1.Z3E-01, 

l.l9r-nit  1.16E-01, 

1.14E-01,  1.12E-01, 

1.12E-01, 

C4D 

160 

3 

1.11E-01, 

l.UF-01,  1.121-01, 

1.14E-01,  1.13E-D1, 

1  .1PE-01 , 

C  40 

170 

3 

1.  09F-01, 

1.07F-01,  l.CIZS-Ol, 

9.90E-02,  9.90E-02, 

9.00E-02, 

C4D 

i  eo 

3 

6#  65E-P2, 

*• ?OE -0  ?,  7.6SE-U2, 

7  .  0  9f  -  o  2  ,  F.90E-02, 

f  .10E-Q2, 

C4D 

150 

3 

5.50E-02 , 

4.95F-0Z,  U.50E-C2, 

4.00E-02,  2.75F-02, 

3.50E-0 

C4D 

200 

3 

3.1 0E“ 02, 

2.F9F-02.  2.93E-02, 

2.20E-02,  1,996-  02, 

1.75E-0Z, 

C4D 

210 

3 

1 .60E-02, 

1.40C-0?,  1.20-1  -02  , 

1.0  ^E-0  2 ,  9.5CE-03, 

9.  OOE-O  3, 

C  4  O 

ZZO 

3 

ft,  OOE-r >, 

7. COE -0 3,  S.*0.  -03  . 

f'.OOE  0  3  ,  5.5  0E-03, 

4.75E-0  3, 

C40 

230 

3 

4.  0  0E-  )?* 

3.79E-03,  3.90E-03, 

3 , 0 OF- 0  3 ,  Z, 906-03, 

2.29E-0  3, 

C'  D 

240 

3 

2 .00E  -0  T  » 

1. *56-03,  1 • 7  OF  -  03  , 

1.E0C-03,  1.6CE-03, 

1.5QE-QS/ 

C4D 

2  50 

DATA IC4III  , 

1=  119,  133)/ 

C40 

260 

1 

1 « *»4E-C  rt 

1 • cOE - P3,  1.47E-03, 

1.24E-03,  1.29E-03, 

1.  C6E-03, 

C40 

2  70 

2 

9,  06E-94, 

7. *3  —  04,  6.41E-04, 

5.09E-C4  •.04E-C4, 

v1 .36E-04, 

C4D 

200 

3 

?.86e-04, 

?.32E-04,  1.94C-04. 

1.57F-04,  *v  3lt~04 , 

1  -02E-04, 

C4C 

290 

4 

8, 07f-05/ 

C40 

300 

c 

4M  H?  0 

continuum 

C40 

310 

r 

C5  LOCATION 

1  V  *  2390 

CM-l 

C40 

220 

c 

r*  LOCATION 

19  V  =  2420 

CM-l 

C4D 

320 

0ATA(C5(I> , 

1=  1,  I*?)/ 

C4P 

i*»Q 

l 

D.UUi  .IS 

,  •l1',  .1^1  .111  , 

. r  9  ,  • 1 U  ,  • 1/ y 

.15,  .17, 

ChD 

350 

2 

.20,  ,24 

,  -?P,  .  -«3  ,  3  .  00  / 

C  40 

260 

c 

07 ON c  U. 

V,  ♦  VISIBLE 

C4C 

370 

c 

CB  LOCATION 

1  V  »  130  0(1 

CM-l 

C4D 

380 

c 

C0  LOCATION 

E  6  Vs  242  00 

CM-l 

C4D 

350 

c 

OV  *  200 

CM-l 

C4D 

400 

c 

CP  LOCATION 

97  V  =  279  0  0 

CM-l 

C40 

410 

c 

C8  LOCATTON 

1 r 2  V=  500  00 

CM-l 

C4D 

420 

c 

rv  ?  nou 

CM-l 

C4C 

430 

0ATA (CP ( I > , 

1=  1,  102)/ 

C40 

440 

1 

4. 50E-" 3, 

P.G9E-03,  l.C7£-t2, 

1.10E-  02,  1.  2  7E-02, 

1.71E-02, 

C40 

m50 

2 

2.  OOE-02, 

2.49r>92,  3. 076-02, 

3.84C-02,  4.7PE-02, 

5.F7E-02, 

C4D 

460 

T 

6. 54£- 02, 

7.  6  26-0?,  Q.19E-G2, 

1. OOF-Oi,  1.09F-QI, 

1.20E-01, 

C  40 

*<70 

4 

1.20E-1 1, 

1.12E-01,  1.11E-U, 

1.16E-01,  1.19E-01, 

1  ,13  F-01, 

C  4  C 

48  0 

5 

1. 03E-0I, 

9.24E-02,  8.28E-02, 

7.57F-02,  7.07F-02, 

6*56F-02, 

C4C 

4  93 

6 

5.56F-0P, 

4.77F-22,  4.065-02, 

3.67E-02,  3.62E-02, 

2.94E-02, 

C4C 

5  CC 

7 

2, 09E-02, 

1, POc-02,  1.9U-52, 
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0. 
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Table  A2.  Description  of  LOWTRAN  Subroutines 


I.OWEM 

MPTA 

NSMDL 
II  PROF 

AERPKF 

PRFDTA 

GEO 

ANGL 

POINT 

EXABIN 

EXT OTA 
PATH 

TRANS 
TRFN 
A EH EXT 

1JN03 
C1DTA 
C2DTA 
C3DTA 
C4DTA 


Main  driver  program.  Reads  control  cards. 

Contains  the  data  for  the  six  model  atmospheres  and 
UNO,,  profile. 

J  1 

For  user  defined  model  atmospheres  or  aerosols. 

Sets  up  horizontal  profiles  of  attenuator  densities  in  | 
LOWTRAN  units. 

Sets  up  appropt  iate  aerosol  horizontal  profiles  for 
model  selected . 

Contains  the  different  aerosol  model  vertical  distri- 
but  ions. 

Calculates  the  absorber  amounts  along  the  atmos¬ 
pheric  slant  path. 

Calculates  the  initial  zenith  angle  for  the  slant  path 
when  HI,  112  and  BETA  are  given. 

Computes  mean  refractive  index  above  and  below  a 
given  altitude  ard  finds  equivalent  absorber  densi¬ 
ties  at  the  altitude. 

Loads  the  aerosol  extinction  and  absorption  coefficients 
for  the  appropriate  models  and  boundary  layer  relative 
humidity. 

Contains  all  the  aerosol  attenuation  coefficients. 

For  radiance  call  ulations,  saves  cumulative  absorber 
amounts  along  slant  path. 

Calculates  transmittances  and  radiances  for  slant  path. 

Contains  transmittance  functions. 

Interpolates  aerosol  attenuation  coefficients  for 
values  at  wavenumber  r. 

Determines  nitric  acid  absorption  coefficient  at  j/. 

Contains  water  vapor  absorption  coefficients. 

Contains  uniformly  mixed  gases  absorption  coefficients. 

Contains  IH  ozone  absorption  coefficients. 

Contains  absorption  data  for  nitrogen  continuum,  4-/un 
water  continuum  and  ozone  UV  and  visible  data. 


Appendix  B 

LOWEM  Symbols  and  Definitions 


A  BSC 
A  LAM 
ANGLIC 
A  VW 
BET 

BETA 

CA 

CO 

CW 

DUMMY 
I)V 
E(K) 
EH(1,  I) 
Eli (2,  I) 

EII(3,  I) 
KH(4,  I) 
EI1<5,  I) 


Aerosol  absorption  coefficient 

Wavelength  (p m ) 

Input  zenith  angle  (degrees) 

Average  wavelength  used  in  refractive  index  expression 

Angle  subtended  at  the  earth's  center  as  path  traverses 
adjacent  levels 

Total  angle  subtended  by  path  at  earth's  center 

Conversion  factor  from  degrees  to  radians 

Wavelength  dependent  coefficient  used  in  refractive  index 
expression 

Wavelength  dependent  coefficient  used  in  refractive  index 
expression 

tised  when  IHAZE  =  7 

Wavenumber  increment  at  which  transmittance  is  calculated 

Equivalent  absorber  amounts  per  km  at  height  HI 

Equivalent  absorber  amount  per-  km  for  K^O  at  level  Z(I) 

Equivalent  absorber  amount  per  km  for  CO,,  +  N,,0  etc.  at 
level  Z(l)  Z 

Equivalent  absorber  amount  per  km  for  Og  at  level  Z(l) 

Equivalent  absorber  amount  per  km  for  at  level  Z(I) 

Equivalent  absorber  amount  per  km  for  H„0  continuum 
at  level  Z(l),  (10  pm) 
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kho;,  i) 

EH(7,  1) 

KIK8,  I) 

KH(9,  1) 
ion  do,  i) 

EIK11,  I) 

1011(12.  I) 

El T ( 1 3 ,  I) 

1011(14,  I) 

1011(15,  1) 
EXT  C 

m 

112 

EMIN 

HMIX(I) 

lJSTOR(I) 

112(1) 

I 

leu 

I  EM  IS  S 

I  FIND 
III/'  '/.)•: 

U 

IK1 ,0 
IKIvI  A  a 
II . 

IM 

ISEASN 

r;  vpe 

1VV I  ,CN 
1XV 


Equivalent  absorber  amount  per  km  for  molecular  soetler- 
ing  at  level  7,(1) 

Equivalent  absorber  amount  per  km  k.r  aerosol  1  (0  to  2  km) 
at  the  level  Z(I) 

Equivalent  absorber  amount  per  kn.  for  ozone  (UV  and 
visible)  at  level  Z(I) 

Mean  r-efraetive  index  of  layer  above  level  Z(l) 

Equivalent  absorber  amount  per  km  lor  Il  O  continuum  at 
level  Z(I).  (4  pm) 

Equivalent  absorber  amount  per  km  for  nitric  acid  at 
level  2(1) 

Equivalent  absorber  amount  per  km  for  aerosol  2  (2  to  10  km 
region)  at  the  level  7,(1) 

Equivalent  absorber  amount  per  km  for  aerosol  3 
(10  to  30  km)  at  the  level  2(1) 

Equivalent  absorber  amount  per  km  for  aerosol  4 
(30  to  100  km)  at  the  level  7,(1) 

Relative  humidity  *  KH(7,  I) 

.Aerosol  extinction  coefficient 

Initial  altitude  (km) 

Final  altitude  (km) 

Minimum  altitude  of  path  trajectory  (km) 

Nitric  acid  volume  mining  ratio  (times  1.0  El  CO)  at  the 
level  2(1) 

Interpolated  nitric  acid  volume  mixing  ratios 
Hollerith  titles  for  visibility 

Running  integer  used  as  altitude  (level)  indicator  and 
frequency  indicator 

Array  used  to  seieet  Hie  correct  aerosol  extinction/ 
absorption  coefficients  from  E.XAllIN 

Input  control  parameter  determining  mode  of  program 
execution  (-0  for  transmittance,  =1  for  radiance  mode) 

Indicator  for  using  subroutine  ANC.E 

H  lundary  layer  aerosol  model  parameter  (0  to  2  km) 

Running  integer  used  as  layer  indicator  along  Hie  atmospheric 
path 

Rower  limit  <>r  layer  loop  (  1) 

Upper  limit  of  layer  loop 

Integer  indicator  used  to  determine  if  Hie  atmospheric  path 
intersects  the  earth 

Parameter  used  when  reading  in  a  new  atmospheric  model 
Parameter  for  seasonal  dependence  of  aerosol  profile 
Indicator  for  type  oT  atmospheric  path 
Volcanic  aerosol  model  parameter  (10  l<>  30  km) 

Parameter  lor  terminating  program  and  cy  ling  indicator 
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J EXTRA 


JM1N 

JP 

J1 

J2 

ICM  AX 

LEN 

LENST 

M 

ML 

MODEL 

Ml 

M2 

M2 

NL 

NIL 

NP1 

P(M,  1) 

PI 

RANGE 

RE 

R  El,  HUM  (I) 

RO 

SEASN(ISEASN) 
T(M,  I) 
TBBYUJ) 

T BOUND 
TX(K) 

TX(9) 

TX(10) 

VH(K) 

VIS 

VSB(IHAZE) 

VULCN 

VX2 

VI 

V2 


Integer  indicator  used  when  HI,  112,  and  IIMIN  are  in  the 
satin'  layer  (ITYPE  =  2) 

Altitude  indicator  for  minimum  height  of  path 

Print  option  parameter 

Level  indicator  for  altitude  Ill 

Level  indicator  for  altitude  112 

Upper  limit  of  absorber  amount  loops  (-15) 

Parameter  used  for  defining  longest  of  two  paths 

Integer  storage  for  parameter  LEN,  needed  for  cases  run 
in  succession 

Integer  used  to  identify  required  model  atmosphere 
Number  of  levels  in  radiosonde  data  input  (MODK1.-7) 

Integer  used  to  identify  required  model  atmosphere 
Integer  for  selecting  temperature  altitude  profile  for  (M=M1) 
Integer  for  selecting  H9C)  altitude  profile  for  (M-M2) 

Integer  for  selecting  altitude  profile  for  (M  M2) 

Number  of  levels  in  model  atmosphere  data 
Equals  NL-1 

Value  of  NP  for  altitude  Ill 

Pressure  (mb)  at  level  1  for  model  atmosphere  M 
3.  I4l;)92tib4  that  is  (it) 

Path  length  (km) 

Earth  radius  (km) 

Relative  humidity  (percent)  at  the  level  Z(I) 

Earth  radius  (1  ;n)  read  in  as  input  ("UK) 

Hollerith  titles  for  the  season  for  the  2  to  30  km  region 
rl  emporaturo  (°K)  for  model  atmosphere  M  at  level  1 
Average  temperature  of  the  JJ  layer 
Input  temperature  of  the  boundary  in  °K 

Equivalent  absorber  amounts  per  km  at  a  given  altitude 
obtained  from  POINT;  also  transmittance  values  at  a 
given  wavelength  for  each  absorber  type  (K  r  1,  KMAX) 

Total  transmittance  at  frequency  V 

Absorption  due  to  aerosol  only  at  frequency  V 

Integral  of  the  equivalent  absorber  amounts  from  Ill  to  level 

Meteorological  range  (km)  at  sea  level 

Default  mel eoi  ologiral  range  for  the  boundary  layer  aerosol 
model  11JAZE 

Hollerith  titles  for  the  volcanic  aerosol  model  (10  to  30  km) 
Wavelength  array  associated  with  EXTC  and  ABUS 
Initial  frequency  for  transmittance  calculation,  cm  ^ 

Final  frequency  for  transmittance  calculation,  cm  ^ 


W(K) 

WIJ(M,  I) 

WLAY(I,  K) 

WO(M,  I) 
WPATH{IJ,  K) 

XI 

X2 

7.(1) 


Total  equivalent  absorber  amount  for  entire  path 

Water  vapor  density  for  atmospheric  model  M  at  level  I 
(gm  m"3) 

The  absorber  amount  for  the  species,  K,  and  the 
atmospheric  layer,  t 

Czone  density  for  atmospheric  model  M  at  level  1  (gm  m  *) 

The  cumulative  absorber  amount  of  the  species,  K,  for  the 
IJ  layer  along  the  atmospheric  slant  path 

Earth  center  distance  of  level  I 

Earth  center  distance  of  level  I  +  1 

.Altitude  at  level  I  in  km 


Appendix  C 

LOWTRAN  5  Segmented  Loader  Map,  AFGL  CDC  6600 
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Table  Cl.  Listing  of  Segmented  Load  (Cont. 


Table  Cl.  Listing  o.p  Segmented  Load  (Cent. 
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Table  Cl.  Listing  of  Segmented  Load  (Cont 
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Appendix  D 


Water  Vapor  Density  and  Relative  Humidity  in  LOWTRAN 

LOWTHAN  requires  both  the  water  vapor  density,  used  in  calculating  the 
molecular  and  continuum  absorption,  and  the  relative  humidity,  needed  Tor  inter¬ 
polating  the  relative  humidity  dependent  aerosol  extinction  coefficients.  The 
user  is  given  a  choice  of  meteorological  parameters  with  which  to  specify  those 
quantities.  The  possible  choices  are  the  ambient  temperature  and  any  one  of  the 
following:  relative  humidity,  dew-point  temperature,  or  water  vapor  density, 
From  any  one  of  these  three  combinations,  the  program  will  supply  the  missing 
values  of  water  vapor  density  and/or  relative  humidity  as  described  in  the  next 
Section. 

The  percent  relative  humidity,  1111,  is  defined  as  100  times  the  ratio  of  the 
ambient,  mass  mixing  ratio  m  to  the  saturation  mixing  ratio,  in  .  The  mixing 
ratio  is  defined  as  the  ratio  ol  the  density  of  water  vapoi  p  to  the  density  of  the 
dry  ai  r  .»  , , 

CJ 

Therefore 

Jill  m  py/pd 

100  ms  Ps^ds 
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where  p  is  the  saturation  density  of  water  vapor  at  ambient  temperature  and  . 
is  the  density  of  t lie  dry  air  at  Saturation.  The  saturation  water  vapor  density  at 
a  given  temperature  T  is  given  by  the  following  empirical  expression.^* 


(I)  -  A  exp  (18.  P ” 'd 0  -  14.  9595A 


-  2.  4388A")  gin  in 


-3 


where  A  -  T  /(T  -t  t),  T  -  273.  151v.  and  t  is  in  1  C.  This  expression  was  found 

o  o  o  '  1 

to  give  a  good  fit  to  published  values  of  saturation  water  vapor  density  over  water 
to  better  tnan  1  percent  for  temperatures  between  -50°C  to  50°C.^“ 

The  following  section  describes  the  equation  used  to  supply  the  missing  values 
of  water  vapor  density  and/or  relative  humidity. 

1.  Given:  ambient  tempera1  lire  t  in  °C  and  relative  humidity  1111;  find  p  f. 


t\.  Ps<|)  X  100  X 


Ps<0 


1> 


-1 


-  1  -3-1 

where  11  is  the  gas  constant  'or  water  vapoe  (1.  til  50  X  10  '  mb  gin  in  K  ), 
T  T(i  t  and  1’  is  the  total  pr  issure  in  mb.  If  the  ratio  of  p^ ,/p^a  were  to  be 
neglected  in  the  equation  for  lilt,  then  p  is  given  simply  by 


v  1111 
it  ,(t )  X  , 

o  iuu 


2.  Given:  ambient  temperature  t  and  dew-point  temperature  t^,  both  in  °C; 
find  p  and  I!  1 1 . 

The  dew-point  temperature  is  defined  as  that  temperature  at  which  the 
ambient  water  vapor  pressure  would  just  saturate  the  air.  This  condition  gives 


T 


_1)  /,  \ 
r  n 


where  1'  and  T^  are  the  ambient  and  dew-point  temperature  in  K, 
The  relative  humidity  is  given  by 


ini 

loo 


PyC) 


p  -  ps<» 


'  p. 


Dl.  Selby,  J.K.A.,  and  MeClutehoy,  11. A.  (1973)  Atmospheric  Transmi.  tanee 
1’rnm  0,  25  to  28.  5  Microns:  Computer  Code  1. outran  3.  AFC1U.-TU-75- 
02  55 ,  AD  AO  17  7 T<f. 

1)2.  J.ist,  K.J.  (19(i8)  Smithsonian  Meteorological  Tables  (titli  revised  edition). 
Smithsonian  Institute  l’ress,  Washington. 
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at-. _ T  ~n  i  . 


,  * 

where  p  =  P/(K  T). 

3.  Jiven:  t  and  p  ;  find  HU 
v 

fill  is  calculated  in  the  same  way  as  in  2. 
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Appendix  E 

Subroutine  DRYSTR 


Subroutine  DRYSTR,  listed  in  Table  1C  1,  can  be  used  in  LOWTRAN  to  generate 
"dry"  stratospheric  water  vapor  profiles.  The  subroutine  uses  a  constant  mass 

mixing  ratio  for  water  vapor  above  15  km  based  on  a  recent  analysis  of  field 

E 1 

measurement  data  by  Penndorf,  J  In  order  to  use  this  subroutine,  the  user  should 
insert  a  call  statement  in  the  main  program  (PROGRAM  LOWEM)  immediately  after 
line  LOW  1240,  as  follows 

CALL  DRYSTR  LOW  1245 

A  message  will  be  printed  on  the  output  Tile  whenever  this  subroutine  is  called 
giving  the  value  of  the  mass  mixing  ratio  used  to  generate  the  modified  water  vapor 
profiles. 

Figures  Ela  and  Eib  show  the  "dry"  stratospheric  watei  Vapor  profiles  vs 
altitude  from  0  to  100  km  and  expanded  profiles  from,  0  to  30  km  calculated  from 
subroutine  BRYSTR,  A  mass  mixing  ratio  of  2,  6  ppmm  was  used. 


El.  Penndorf,  R.  (1978)  Analysis  of  Ozone  and  Water  Vapor  Field  Measurement 
Data,  Federal  Aviation  Administration.  Washington.  D.  C.  Report 
FSS-EE-78-29. 
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Table  El.  listing  of  Subroutine  DRYSTR 


H/0  OtNSIFV  l(/'H  M  -3  J 


Figure  Kla.  Watt')'  Vapor  Density  Profiles  vs 
Altitude  foj-  a  "Dry"  Stratosphere  for  the  Six 
Model  Atmospheres 


Figure  Klb.  W  ater  Vapor  Density  Pioules  vs 
Altitude  for  a  "Dry"  Stratosphere  for  the  Six 
Model  Atmospheres  with  the  Hegion  from  0  to 
30  !<m  Expanded 


Appendix  F 

Comparisons  of  LOWTRAN  with  Measurements 


Compnr’isnnb  of  ]  .CW'TKA  N  with  nirasuirimMns  fiwn  pivviotis  T.OWTKAM 
reports  *■’  ^  ’  ''  are  presented  in ->••'  for  ready  re I'ereme,  These  curlier  com¬ 

parisons  used  either  the  rural  or  average  emit  mental  extinction  coeff’cients  for 
the  aerosol  models. 

Figures  FI  and  l'2  show  transmittance  eompn  .isions  of  FOWTHAN  with  labora- 

1  4 

lory  measurements  of  Hutch  et  ai  lor  some  iivtpor1  m  water  vapor  and  carbon 
dioxide  bands.  It  will  be  soon  that  the  l.,(  AV  JHA cal eulat ions  agree  closely  with 
till-  nnaSltred  sp<  •  1 1 •  a  1  transmiHanee. 

Figure  Fd  shows  a  transmittance  comparison  with  a  sea-level  measurement 
by  Ashley  et  ’  (Conor.  1  Dynamics).  The  measurement,  made-  with  nn 

FI.  Selby,  J.C.A.,  Knci/ys,  l.LS.,  Ciu-twyn  1  J  r. ,  J.ll.,  and  Met  latchoy,  II. A. 

(1078)  Atmospheric  Ti  nriKn.ittance / Radiance:  Comtn'lcr  Code  l  .OWTh’AM  4. 
AFGl.-'l Tf-Tfl-OOjfl,  AD  A 0.78  ti<):t. 

F2.  Selby,  J.K.A.,  Sln  ttle,  !,.  1C  ,  and  AleClatchey,  11.  A.  ( 1  f •  7 1 ! )  Aimosphor ie 
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interferometer  of  —  4-cm  *  resolution  from  1.8  to  5.4pm,  is  for  a  1.3-km  sea- 
level  horizontal  path. 

Figure  F4  shows  a  comparison  of  the  calculated  upward  atmospheric  radiance 
with  an  interferometer  measurement  from  a  balloon  flight  over  northern  Nebraska 
bv  C'haney  at  the  University  of  Michigan.  ^  The  measurement,  was  taken  at  a  float 
altitude  of  111,  700  ft.  The  calculated  radiance  used  the  midlatitude  winter  model, 
with  a  28 -km  visual  range,  and  a  ground  temperature  of  230°K. 

Figure  F5  shows  t.  comparison  of  an  interferometer  measurement  made 
F7 

from  the  Nimbus  3  satellite  looking  down  over  the  Gull  of  Mexico  with  the  cal¬ 
culated  atmospheric  radiance.  The  resolution  of  the  interferometer  was  5  cm  * 
as  compared  to  the  20  cm  *  resolution  of  hOWTUAN.  Two  theoretical  models, 
the  tropical  and  lmdlatitude  summer,  were  used  for  comparison,  as  shown  in 
Figure  F7  and  are  displaced  two  div .sions  above  and  below  the  measured  radiance 
for  clarity.  Both  models  assumed  a  23 -km  visual  range  and  used  the  temperature 
at  0  KM  in  the  model  atmosphere  as  the  boundary  temperature. 

Figure  Fl>  shows  the  comparison  of  atmospheric  radiance  as  seen  from  space 
between  tie'  BOW TUAN  calculation  and  measurements  from  the  Nimbus  4  satellite'*  ** 
for  three  different  geographic  locations.  The  spectra,  obtained  with  a  Michelson 
interferometer  of  resolution  2.8  cm  ,  were  measured  over  the  Sahara  Desert, 
the  Mediterranean,  and  the>  Antarctic.  The  calculated  I.OWTKAN  radiances  used 
the  midlatitude  winter  model  and  a  ground  temperature  of  320°K  for  the  Sahara; 
the  midlatitude  winter  model  and  a  ground  temperature  of  28b'  K.  for  the  Mediter¬ 
ranean;  and  an  arctic  winter  cold  r  •••.  T  taken  from  the  AFCKL  Handbook  of  Geo¬ 
physics  and  Space  Fnvirotiments  am  a  ground  temperature  of  100°K  for  the 
Antarctic  comparison.  All  three  calculations  assumed  a  23-km  visual  range  for 
ae  rosols . 

Figures  F7  through  F10  show  comparisons  of  calculated  and  observed  atmos¬ 
pheric  spectral  radiance  vs  wavelength  in  the  8-  to  14-gin  spectral  region.  The 
measurements  were  made  on  n  balloon  flight  launched  from  Holloman  AFB,  New 
Mexico  lr,  Mi'ii  ray  el  al,  *  ***  I'niversity  of  Denver.  The  instrument  used  for  these 
observations  was  a  Bile  grating  spectrometer,  operated  in  the  fiisl  and  second  or¬ 
der  oftbe  grating.  The  resolution  was  0.03  pm  in  the  8-  to  14 -pm  region.  The 
data  in  these  figures  are  presented  as  a  function  of  altitude  and  as  a  function  of 
zenith  angle.  The  BOWTIIAN  radiance  calculation  used  the  pressure,  temperature, 
ozone,  and  nitric  n  id  profiles  from  the  Murcray  report,  and  the  midlatitude 
winter  water  vapor  profile  contained  in  l.OWTUAN. 


Because  of  the  large  number  of  references  riled  above,  they  w  ill  not  be  listed  hero. 
Sec  lleferenees,  page  238. 
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Figure  FI.  Representative  Absorption  Curves  for  the  (5,3-/uin  H20  Band 
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Figure  F2.  Comparison  of  LOW  TRAN  Calculations  and  Burch  et  al  Calcu¬ 
lations  for  CO„  Bands  at  4.3  and  15  /jm 


SPECTRAL  RADIANCE  -  a*  cm'zsr"'  cm 


GENERAL  DYNAMICS 


....  LOWTRAN 


l -80  2.20  2  .60  3.00  3.40  3.60  4  .20  4  .60  5  00  5.40 


Figure  F3 .  Comparison  Between  LOWTRAN  and  General  Dynamics 
Measurements;  Range  =1.3  km  at  Sea  Level 
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Figure  F4.  Comparison  Between  LOWTRAN  Predication  and  University 
of  Michigan  Balloon  Measurement  of  Atmospheric  Radiance  over  North¬ 
ern  Nebraska 
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Figure  F5.  Comparison  Between  LOWTRAN  Prediction  and 
NLviBuS  3  Satellite  Measurement  01"  Atmospheric  Radiance 
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Figure  FT.  Sample  SD'-'cirum  of  Short  Wavelength 
Region  Observer!  ru  an  Altitude  of  9,  5  km  and  a 
Zenith  Angle  of  f>3°  on  19  February  1975,  and 
LOWTRAN  Comparison 
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Figure  F8.  Sample  Spectrum  of  Short  Wavelength 
Region  Observed  at  an  Altitude  of  13,  5  km  and  a 
Zenith  Angle  of  63°  on  19  February  1975,  and 
LOWTRAN  Comparison 
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Figure  F'O.  Sample  Spectrum  of  Sliort  Wavelength 
Region  Observed  at  an  Altitude  of  18.0  km  and  a 
Zenith  Anglo  of  03°  on  10  February  1975,  and 
FQWTRAN  Compa risen 
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Figure  FIO.  Sample  Spectrum  of  Short  Wavelength 
Region  Observed  at  an  Altitude  of  24.0  km  and  a 
Zenith  Angle  of  (33°  on  19  February  1975,  and 
IjOWTRAN  Comparison 
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